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RESEARCH SUMMARY 

Comprehensive procedures for inventorying weight per 
unit area of living and dead surface vegetation are pre- 
sented to facilitate estimation of biomass and appraisal 
of fuels. The authors show how to conduct fieldwork and 
estimate weight per unit area of downed woody material, 
forest floor litter and duff, herbaceous vegetation, shrubs, 
and small conifers Weights by species are determined for 
shrubs and small conifers Coverage of shrubs and 
herbaceous vegetation are estimated. The several samp- 
ling methods involve the counting and measuring dia- 
meters of downed woody pieces that intersect vertical 
sampling planes, comparing quantities of litter and her- 
baceous vegetation against standard plots that are 
clipped and weighed, tallying shrub stems by basal 
diameter classes, taiiying conifers by height classes, and 
measuring duff depth. The procedures apply most 
accurately in the Interior West; however, techniques for 
herbaceous vegetation, litter, and downed woody material 
apply anywhere. A computer program and card punching 
instructions are Included for processing inventory data 
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INTRODUCTION 

This publication describes procedures for Inventorying 
weight of forest floor duff, forest floor litter, herbaceous 
vegetation, shrubs, small conifers, and downed woody 
material (fig. 1). The procedures furnish estimates for live 
and dead vegetation by diameter classes. The Inventory 
methods have application to several facets of forest and 
range management and to research Investigations. 


The procedures were Initially developed to provide esti- 
mates of fuel loading (weight per unit area) as part of an 
effort to appraise fire behavior potential for planning fire 
atrategles In wilderness areas (Habeck and Mutch 1973; 
Aldrich and Mutch 1972). Although the methodology 
emphasizes forest fuels, estimates of aboveground 
biomass of herbaceous vegetation, shrubs, and small 
conifers may be useful for purposes other than fuel 



Figure 1.— -Vegetative components Included In procedures for estimating biomass and 
fuel loading. 








appraisal The procedures were used by numerous field 
crews for several years This experience aided 
considerably in developing the step-by-step procedures 
reported here 

The inventory procedures are useful for determining 
biomass of any vegetation up to about 10 ft (3 m) in 
height. The entire set of procedures or a part of them can 
be appiied to estimate all or any one of the vegetative 
components. 

The procedures apply most accurately in the Interior 
West. The techniques for estimating bipmass of herba- 
ceous vegetation, litter, and downed woody material, how- 
ever, apply anywhere. The shrub techniques apply most 
accurately to shrubs In the Northern Rocky Mountains. 
Considering sampling efficiency as attainment of desired 
precision by the most practical means, the most efficient 
methods of sampling vegetation vary by plant species and 
purpose. Different techniques are required to most effi- 
ciently sample all vegetation. Thus, the single set of pro- 
cedures assembled here may not be the most efficient for 
some situations. Nevertheless, the procedures are appro- 
priate for sampling each category of vegetation and can 
be widely applied with a minimum of training and exper- 
ience, Further discussion on applicability of techniques is 
in appendix I, 

The inventory procedures specify sampling of branch 
and stemwood under 3 inches In diameter by diameter 
classes of 0 to 0.25 inches (0 to 0,6 cm), 0.26 to 1,0 inches 
(0.6 to 2.5 cm), and 1.0 to 3.0 inches (2.5 to 7,6 cm). The 
size classes correspond In Increasing size to 1-, 10-, and 
100-hour average moisture timelag classes for many 
woody materials (Fosberg 1970). The size classes are 
used as moisture timelag standards In the U.S, National 
Fire-Danger Rating System (Deeming and others 1977). A 
moisture timelag Is the amount of time for a substance to 
lose or gain approximately two-thirds of the moisture 
above or below its equilibrium moisture content. Appraisal 
of forest fuels Is greatly facilitated when data on biomass 
are assimilated by these size classes. 

Fuel depth was originally included In the procedures 
but was removed because Interpretation of fuel depth was 
complex and required trained people to evaluate the 
reasonableness of depth observations. Although Albini 
(1975) developed an algorithm that was largely successful 
In processing fuel depth data for Input to Rothermel’s 
(1972) fire spread model, spurious depth measurements 
coupled with the fact that fire behavior predictions were 
highly sensitive to depth, continued to cause erratic 
predictions, In predicting fire behavior using Rothermel’s 
model, depth together with loading is required to deter- 
mine fuel bulk density, Recent research (Brown 1981) 
indicates that characterization of bulk density for under- 
story vegetation and fuel groups may eliminate the need 
for measurement of fuel depth in Inventorying fuel for 
practical applications. 

To assure reasonable fire behavior predictions, Inven- 
toried fuel loadings should be Interpreted by fire behavior 
modeling specialists for proper Input to Rothermel's 
model. Estimates of certain fuel components such as 
downed woody material and duff can be used without 
interpretation In operating Albinrs (1976) burnout model. 
This model Is Incorporated In a computer program called 


HAZARD, which appraises slash fuels (Puckett and others 
1979). As the technology in fire behavior modeling grows, 
other direct applications of fuel Inventory may arise, 

CHOICE OF TECHNIQUES 

An efficient Inventory of all fuel and understory 
vegetation requires several techniques because of the 
varied physical attributes of vegetation Forest vegetation 
is comprised of living and dead plants, both standing and 
downed. Plants range in size from small grasses and 
forbs to large shrubs and trees Pieces of vegetation con- 
sidered as fuel particles range in size from small leaves, 
needles, and twigs to large branches and tree boles. 
Vegetation and fuels having similar physical character- 
istics, which can be appropriately sampled using the 
same technique, can be grouped as follows: 

1. Standing trees 

2. Shrubs 

3. Herbaceous vegetation (grasses and forbs) 

4. Forest floor litter (01 horizon) 

5. Forest floor duff (02 horizon) 

6. Downed woody material. 

The inventory procedures assembled here are made up 
of different techniques for each category of vegetation 
Before presenting the procedures, methods of sampling 
and reasons why certain techniques were chosen are dis- 
cussed for each category of vegetation. 

standing Trees 

A method for estimating biomass of conifers less than 
10 ft (3 m) in height was Included In the procedures pre- 
sented here because small trees can contribute signifi- 
cantly to propagation of both surface and crown fires. The 
method requires measurement of number of trees per 
acre by species and height. Biomass of foliage and 
branchwood by size class Is calculated from weight and 
height relationships developed by Brown (1978). 

Biomass of trees over 2 Inches (5 cm) d.b.h. can be esti- 
mated from biomass tables or from tree volume estimates 
converted to weight using wood densities (USDA 1974), To 
determine volumes from tree volume tables, estimates of 
the number of trees per acre or basal area per acre by 
d.b.h. and species required to access the tables can be 
determined from commonly used plot and plotless samp- 
ling methods. Procedures for Inventorying trees greater 
than 10 ft (3 m) In height are not Included here because 
they are commonly understood and used In forestry. If 
desired, they can be readily applied along with the pro- 
cedures for surface vegetation. 

Shrubs 

Shrub biomass can be estimated nondestructlvely by 
one of two basic methods. One approach relates biomass 
to stem diameters as described by Telfer (1969) for shrubs 
in eastern Canada, and Brown (1976) for shrubs in the 
Northern Rocky Mountains. High correlations between 
stem diameters and weights of various shrub parts have 
been reported (Lyon 1970; Buckman 1966; Whittaker 1965). 
This approach requires a tally of number of stems by 
stem diameter on plots of known size. Another method 
relies on the relationships between biomass, canopy area, 


2 



and canopy volume as described for semidesert shrubs in 
New Mexico (Ludwig and others 1975), sagebrush 
{Artemisia tndentata) (Rittenhouse and Sneva 1977), and 
low shrubs in California (Bently and others 1970). This 
method requires measurements of crown diameters and 
shrub height. 

The method Involving measurement of stem diameters 
has the advantage of applying easily to tall shrubs 
compared to the method of measuring crown dimensions. 
Measurement of stem diameters probably permits the 
most accurate estimation of biomass because stem 
diameters should relate more directly to biomass than 
does space occupied by shrubs. A disadvantage of 
measuring stem diameters is that fieldwork can involve 
considerable time, especially for small shrubs comprised 
of many stems such as grouse whortleberry {Vaccinium 
scoparium). The fieldwork can be minimized by recording 
diameters by size classes. The method requiring measure- 
ment of crown dimensions Is rapid and well suited to 
small- and medium-size shrubs. The method involving 
measurement of stem diameters was Incorporated in 
these procedures because it applies to shrubs of all sizes, 
and relationships for estimating biomass of leaves and 
stemwood by diameter class were available for 25 species 
(Brown 1976). 

Herbaceous Vegetation 

An extensive body of literature exists on estimating 
weight and production of range vegetation. Techniques 
for estimating weight basically fall Into three categories: 
(1) clipping and weighing, (2) estimation, and (3) a 
combination of weighing and estimation. 

To aid in extensive surveys, a quick, easy-to-use 
method is needed for estimating weight. Studies In 
pasture grasses (Paste and others 1957) and annual range 
species (Reppert and others 1962) gave reasonably high 
correlations between weight per unit area, and ground 
cover and height. Similar investigation of grasses, forbs, 
and small woody plants in forest areas showed that as 
more plant sizes and shapes are included in plots, poorer 
accuracy can be expected (Brown and Marsden 1976). 
Unless relationships of suitable accuracy are known for 
specific sites, some clipping and weighing is desirable for 
estimating herbaceous vegetation. 

The weight-estimate method has been widely used and 
tested in the southern and western United States in a 
variety of vegetation Including large and small grasses 
and understory vegetation. It requires an estimate of 
actual weights and can be effectively used with double 
sampling on clipped and weighed plots. Trained observers 
can estimate within 10 percent of actual weights (Hughes 
1959). When used with double sampling, variance of esti- 
mates can be reduced (Francis and others 1979). This 
method, coupled with double sampling, has proved very 
useful in estimating forest floor litter and herbaceous 
fuels for research purposes. 

Another similar technique, the relative-weight estimate 
method (Hutchins and Schmautz 1969) has been useful in 
estimating fuels. This method is based on the assumption 
that it is easier to compare weights than estimate 
weights. It Involves identifying a base plot having the 
most weight from a set of four or five plots. The weight 


on the other plots is estimated as a fraction of the base 
plot The base plot is then clipped and weighted and 
weights on other plots calculated as a fraction of the 
base plot. 

The relative weight-estimate method was incorporated 
in these procedues because it is easy to use, requires a 
minimum of training, and is based on some clipping and 
weighing The advantages and disadvantages of this 
method Include; 

Advantages 

1. Requires little training or experience to learn the 
method; remembering weight Images is minimal. 

2. Checking weight estimates against actual weights is 
unnecessary. 

3. Estimates are not affected by changes In light and 
moisture content as can happen with the weight-estimate 
technique. 

4. Quantities of vegetation can be rated on a relative 
basis more easily than they can be actually estimated. 

Disadvantages 

1. The set of plots must all be readily visible to the 
observer to permit accurate comparisons. 

2. Clipping and bagging on one out of every four or five 
plots is necessary. 

3. Accuracy of the method has had little study. 

4. Probably not as accurate as weight-estimate method 
used by trained and experienced observers. 

Litter and Duff 

Sampling the forest floor litter separately from the duff 
Is desirable because the litter is usually much less dense 
than the duff and frequently burns Independently of the 
duff. The most accurate method of estimating forest floor 
weights is by collecting and weighing samples. This 
necessitates a cumbersome field procedure Involving 
transport of soil containers and eventual ovendrying. 
Attempts to correlate stand characteristics and forest 
floor weights and depths have not always been success- 
ful. For example, forest floor weights in red pine 
plantations (DIeterIch 1963) and pondarosa pine stands 
(Ffolltott and others 1968) were highly correlated with tree 
basal area. On the other hand, relationships between 
forest floor weights and basal area, site Index, and stand 
age were Insignificant In natural stands of red pine and 
jack pine (Brown 1966), and poorly correlated in eastern 
white pine (Mader and Lull 1968). In an extensive study of 
southwestern ponderosa pine and mixed conifers, Sackell 
(1979) found a lack of reliable relationships for predicting 
forest floor quantities from basal area or duff depth. 
Factors such as fire history, decay rates, and storms can 
strongly influence forest floor quantities. Thus, high 
correlations between forest floor quantities and basal 
area, site Index, and stand age appear to have a limited 
basls—low correlations should not be surprising. The 
relationship between depth and weight of duff can be 
used to estimate weight recognizing that accuracy can be 
low. Measurement of duff depth was adopted for these 
procedures because; 

1. Collecting and weighting duff would be impractical 
for large inventories. 

2, The literature on duff bulk density seemed sub- 
stantial enough to use In estimating weight from depth. 
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3. Depth is easily measured and can be a useful mea^ 
surement Itself for planning and evaluating prescribed 
fires conducted for fuel reduction and site preparation. 

The bulk densities in table 1 served as a basis for 
establishing the following bulk densities that are used in 
the computer program to calculate duff loadings from 
duff depth: 

Cover type Bulk density 

LbJffi 

1 Ponderosa pine 5 

2. Lodgepole pine 8 

Douglas'fir 

Shrubfields 
Grand f(r 

3. Others 10 

Because the bulk densities used to calculate duff 
weights are approximations, the weights are approxi- 
mations and must be interpreted accordingly. If desired, 
bulk densities other than those above can be used to 
calculate duff loadings as described in the section on 
calculations. 

Utter depth was not adopted as a basis for estimating 
litter weight because the literature on bulk density of litter 
was scant. More important, perhaps, is that considerable 
judgment Is required to Identify the top of litter. This 
problem is serious because the litter layer is often very 
thin and large errors In depth measurement could result. 

The relative weight-estimate technique was chosen for 
litter because it applies readily to litter and was also 
being used for herbaceous vegetation. 

Downed Woody Material 

Downed woody material Is the dead twigs, branches, 
stems, and boles of trees and shrubs that have fallen and 
He on or above the ground. Loadings of downed woody 
material vary considerably among stands due primarily to 
site productivity and stand history (Brown and See 1981). 

Table 1.— Bulk densities of forest floor duff summarized from literature 


Collecting and weighing downed woody material is 
Impractical in most forest stands The planar Intersect 
technique (Brown 1974b; Brown and Roussopoulos 1974) 
adopted here is nondestructive and avoids the time-con' 
sumlng and costly task of collecting and weighing large 
quantities of downed woody material. It has the same 
theoretical basis as the line Intersect technique (Van 
Wagner 1968). The planar Intersect technique involves 
counting intersections of woody pieces with vertical 
sampling planes that resemble guillotines dropped 
through the downed debris. Volume Is estimated; then 
weight is calculated from volume by applying estimates 
of specific gravity of woody material. 

PROCEDURES 

The procedures In this section are an assembly of 
sampling techniques that provide estimates of the 
following variables: 

1. Biomass and fuel loading on an ovendry basis of: 

a. Downed woody material 

b. Forest floor litter and duff 

c. Herbaceous vegetation 

d. Shrubs 

e. Conifers less than 10 ft (2 m) In height. 

2. Depth of duff and height of shrubs and small trees. 

3. Percentage cover of herbaceous vegetation and 

shrubs. 

4. Percentage of dead in herbaceous vegetation and 

shrubs. 

5. Percentage cover of forest floor litter. 

6. Number of small trees per acre by species. 

7. Stand age. 

In addition, provision Is made for recording and sum- 
marizing slope, elevation, aspect, cover type, and habitat 
type. 

The field procedures Involve counting shrub and small 
tree stems and Intersected pieces of downed woody 


Forest type 

Location 

Forest _ 

floor layer 

Mean 

Bulk density 

Standard 

deviation 

Source 



- 


• • • Lb/n^ 

. - 

Ponderosa pine 

Mont. 

F,H 

4.8 

2.10 

Brown (1970) 


Ariz. 

F 

1.8 

0.15 

Ffolllott and others (1968) 



H 

7.4 

,44 


Ponderosa pine 

Wash. 

Basalt (F,H) 

6.9 


Wooldridge (1968) 



other soil (F,H) 

4.9 



Mixed conifers 

Wash, 

Basalt (F,H) 

6,9 


Wooldridge (1968) 



other soil {F,H) 

6.0 



Eastern white pine 

Mass. 

F 

4.5 


Mader and Lull (1968) 



H 

9.0 



Lodgepole pine 

Wyo. 

F. H 

8.7 

1.9 

Brown (1974a) 

Fir - hemlock 

Wash. 

Mull (F.H) 

9.1 


Williams and Dyrness (1967) 

Fir - hemlock 

Wash. 

Mull (F,H) 

11,2 


Mader (1953) 

White spruce, balsam, poplar 

Ontario 

Mull (F.H) 

10.0 


Mader (1953) 

White pine 

Wise. 

Mull (F.H) 

8.7 


Mader (1953) 

White pine/hemlock 

N.Y. 

Greasy Mor (F,H) 

11.9 


Mader (1963) 

Red pine 

Minn. 

F.H 

4.3 


Brown (1966) 

Jack pine 

Mich. 

F.H 

6.1 


Brown (1966) 
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material; measuring diameters, depth, and height of vege- 
tation: oculariy estimating percentage of cover and 
percentage of dead vegetation; and extracting increment 
cores for determining tree age. All the procedures may be 
followed to furnish estimates of all vegetation, or a 
subset of the procedures may be used to furnish an esti- 
mate of any single variable such as duff depth or shrub 
biomass. For an average amount of vegetation, about 15 
minutes per sample point are required to complete 
measurements. Counting shrut»s and clipping herbaceous 
vegetation and litter require the most time. 

Deciding when to sample.— The time of year when 
vegetation, especially grasses and forbs. Is sampled has 
a large influence on results. Grasses and forbs may not 
be fully developed during late spring or early summer. 
Sampling at that time will result in low estimates. During 
late summer, some annuals may have cured and deterior- 
ated to such an extent that their biomass cannot be 
accurately estimated. The lime of year when sampling is 
done must agree with the purpose of Inventory. For 
appraising fuels, sampling during the normal fire season, 
such as late July and August In the western United 
States, is recommended. 

Number of Sample Points 

For any area where estimates are desired, at least 15 to 
20 sample points should be located. This sampling inten- 
sity will often yield estimates having standard errors 
within 20 percent of the mean estimates (appendix II). 
Areas larger than approximately 50 acres containing a 
high diversity In amount and distribution of fuel and 
vegetation, should be sampled with more than 20 points 
to achieve standard errors within 20 percent of mean 
estimates. 

Changing the size of plots also influences the desired 
number of sample points. For sampling downed woody 
material, these procedures accommodate a variable 
length sampling plane. Choose sampling plane lengths 
from the following tabulation: 

Diameter of debris 

Downed material 0-1 Inch 1-3 Inches >3 Inches 

Sampling plane (ft) 


number of sample points may be required to furnish 
adequate precision for any given area. Sampling inten- 
sities are discussed further in appendix II. 

Fieldwork 

Locating Sample Points 

After determining sampling area, such as a stand, 
delineate or describe Its boundaries. Definition of the area 
and Its boundaries should satisfy a sampling design 
based on a clear objective for the sampling. Sample 
points may be systematically or randomly located; how- 
ever, systematic placement is usually the most practical. 
Two methods are: 

1. Locate plots at a fixed interval along transects that 
lace regularly across a sample area (uniform sampling 
grid). For example, on a sample area, mark off parallel 
transects that are 5 to 10 chains (100 to 200 m) apart. 
Then, along the transects, locate plots at 1- to 5-chaln 
(20- to 100-m) intenrals, 

2. Locate plots at a fixed Interval along a transect that 
runs diagonally through the sample area, To minimize 
bias, have the transect cross areas where changes In 
fuels or biomass are suspected. Before entering the 
sample area, determine a transect azimuth and distance 
between plots. Distance between plots can be paced by 
foot or sampling rod. If variations In biomass across an 
area are obvious and significant, it may be desirable to 
divide the area Into recognizable strata and sample each 
stratum separately. 

Hints for conducting fieldwork are listed In appendix IV. 
Plot Layout 

The plot layout at a sample point consists of a 
randomly positioned line transect for downed woody 
material and duff, a 1/300-acre plot for trees, two 
y^-mllacre plots for shrubs, and four 0.98 by 1.97-ft (30 by 
60-cm) plots for herbaceous material and litter (fig. 2). 

Downed woody material, litter, herbaceous vegetation, 
shrubs, and small trees are measured on plots laid out 
parallel to the slope. Thus, calculations of loading on a 
horizontal acre basis require slope correction. Duff depth 
Is measured vertically so that slope adjustment Is un- 
necessary for calculating loading. 


Nonslash (naturally 

fallen material) 6 10-12 35-50 

Discontinuous 

light slash 6 10-12 35-50 

Continuous heavy 

slash 3 6 15-26 

If material larger than 3 Inches (7.6 cm) In diameter is 
scanty or unevenly distributed, the longer sampling planes 
In the tabulation should be used. 

For fuel and vegetation other than downed woody 
material, plot sizes could be changed. If the computer 
program listed in appendix III Is used to calculate load- 
ings, however, It would have to be modified or Its output 
corrected to adjust for different plot sizes. Variable 
sampling plane lengths are accounted for' In the program. 

The amount and distribution of vegetation, especially 
downed woody material, varies greatly among and within 
stands. Thus, these sampling recommendations should be 
considered approximate because a greater or fewer 


Step 1: Mark the sampling point vJith a chaining pin (No. 
9 wire or similar Item). Avoid disturbing material 
around the point so that measurements can be 
accurately made. 

Step 2: Randomly determine direction of the sampling 
plane In one of two ways: 

(1) Toss a die to Indicate one of six 30“ angles 
between 0“ and 150“. The 0“ heading Is the 
direction of travel. Turn a fixed direction, such as 
clockwise, to position the sampling plane. 

(2) Orient the sampling plane in the direction 
Indicated by the second hand of a watch at a 
given Instant. To avoid bias In placement of the 
sampling plane, do not look at the fuel or ground 
while turning the Interval. 

Step 3; Denote position of sampling plane by plaoing a 
6,8-ft Inventory rod (diameter of 1/300-acre plot) 
out from the chaining pin parallel to the ground 
in the direction determined In step 2 (fig. 2). A 
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50-foot tape is used along this same line to mea- 
sure large pieces The tape and rod fix the posi- 
tion of vertical sampling planes. 


3|ID 


Relative 

Estimate 

Subplots 


/ 

( X7( 


« ^ Duff ^ 

Depth 2 Grid line 

^ / I A~- or Transect 

Sample Point Mil Acre 

y Shrubs 

/ 

Ni/300Acre 
Small Trees 


Step 4: Next, locate four relative estimate subplots and 
two VA-milacre shrub plots on the ground as 
shown in figure 2. Mark the two shrub plots with 
chaining pins or similar devices. They are located 
90'’ to the sampling plane. Place the relative 
estimate frames parallel to the slope, and main- 
tain this position when collecting samples (fig 3). 
Similarly, count shrub stems from plots 
delineated parallel to the slope. 

Vegetation to be sampled by each technique Is 
summarized in table 2. Some vegetation could be sampled 
by more than one technique. To avoid double sampling of 
any component, definitions of vegetation to be sampled 
by each technique must be consistently and closely 
followed. 



Figure 2.— Plot layout at a sample point 




Figure 3.— Positioning sample frames for 
the relative estimate technique on the sur- 
face of the forest floor 


Table 2.— Vegetation to be sampled by different biomass techniques 


Vegetation 

category 

Technique 

Downed 

woody 

material 

Planar 

Intersect 

Utter 

Relative- 

weight 

Duff 

Depth 

measure- 

ment 

Herbaceous 

plants 

Relative- 

weight 

estimate 

Shrubs 

Stem counts 

Small 

conifers 

Tree counts 


Sampled vegetation 


Twigs, branches, sterns, and tree boles in and above the litter. 


Litter is the 01 horizon or “L” layer of the floor and Includes freshly fallen leaves, needles, bark 
flakes, cone scales, fruits, dead malted grass, and a variety of miscellaneous vegetative parts. 
Include cones that are more than one-half In or above the litter. If they are more than one-half below 
the litter, treat as dufL Omit sampling downed woody material as part of the litter because It Is 
sampled by the planar Intersect method. 

Duff IS the 02 horizon or fermentation ar^d humus layers of the forest floor. It lies below the litter and 
above mineral soil 

All live and dead grasses, sedges, and forbs. Dead grasses and forbs detached and fallen from their 
growing point should be considered litter. Some small woody plants such as bunchberry (Cornus 
canadensis), Iwinflower fL/nnea borealis), prince’s (Chlmaphila umbellata)^ and kinnikinnick 
(Arctostaphylos uva^ursi), should be sampled as herbs because the shrub method Is Inapplicable. If 
desired, small woody plants can be sampled separately using an extra form. 

All woody shrubs except those Included In the herbaceous sample. Include common juniper 
(Juniperus communis) as a shrub. 

All conifers except common Juniper. Small deciduous trees such as aspen, cottonwood, and birch 
can be handled as tall shrubs. 
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Measurements 

After the subplots and line transects have been estab- 
lished on the ground, begin recording general information 
at the top of the inventory form (fig 4). 


INVENTORY FORM 


CREW : 


DATE 

i 1 1 . 

STAND NO. 1 1 1 

PLOT NO. 


l_ L. 

TERRAIN SLOPE 

T 

ASPECT 


ELEV. 

l_l_l _ 

STAND AGE 

L_l_ 

COVER TYPE 

_J_1_ 

H.T. 

, 1 PLANER SLOPE 



TRANSECT LENGTHS 

NO. IN 

TERSECTIONS <3 IN 
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Figure 4,— Ground fuel and vegetation Inventory form. 
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General Information: 



Step 1: Date can be recorded as month and year, or day 
and month 

Step 2: Identify stands and plots by consecutive 

number Stand numbers can be placed on a 
field map for referencing locations (e.g., stand 
No 1, plots numbered 1-10; stand No. 2, plots 
numbered 11-20). 

Step 3: Determine topographic slope in percent. A 

Relaskop, Abney, or a clinometer is useful for 
measuring slope. 

Step 4: Using a compass, record aspect of the area 
near the sample point in degrees. 

Step 5; Determine elevation by an altimeter or from 

reading a contour map. If an altimeter is used, 
calibrate It dally to a knov/n elevation. 

Step 6; Determine stand age by extracting Increment 
cores from three or four dominant or codomi- 
nant trees In the stand. Take the cores at d.b.h, 
on the uphill side of the tree. Average the ages 
and enter the average on the form. Age needs 
to be recorded on only one plot per stand. 

Step 7: Cover type Is used to determine duff loading 
For proper duff calculations, record the cover 
type that most resembles one of the following 
species categories (left justify the codes, see 
data form insert): 

Cover type Is most like; Code 

1. Long-needled pine (except ponderosa pine) PP 

2. Intermediate-needled conifer {except lodge- LP 
pole pine) and other conifers that typically DF 
occur In mixed pIne-fIr types (except 
Douglas-fir) 

3. Predominantly short-needled conifers Any other 

(except true fir, spruce, and hemlock) code 

Step 8: Record habitat type using a 3 dlgit code. The 
habitat type system developed by Pfister and 
others (1977) Is appropriate here. 

Step 9: Estimate or measure the slope of the planar 
Intersect sampling plane by sighting along the 
transect pole or tape previously positioned on 
the ground. Record this as a percentage. 

Step 10; Record the transect lengths. (Refer to the 

discussion on sampling plane lengths.) Note on 
the Inventory form that sampling plane lengths 
for 0- to 1-Inch (0- to 2.5-cm) and 1- to 3-inch 
(2.5- to 7.6-cm) material require a decimal place. 



Downed Woody Material: 


Step 1: Count the number of 0- to 0 25-inch (0- to 0.6-cm) 
and 0.25- to 1-inch (0.6- to 2.5-cm) particles 
Intersected by the sampling plane. This technique 
involves counting intersections of woody pieces 
with vertical sampling planes that resemble 
guillotines dropped through the downed debris. 
The vertical plane is a plot. Consequently, In 
counting particle intersections. It is very 
important to visualize the plane passing through 
one edge of the plot rod and terminating along 
an Imaginary fixed line on the ground. Once 
visualized on the ground, the position of the line 
should not be changed while counting particles 
(fig. 5). 



Figure 5.— The sampling plane is exactly 
defined by one edge of the plot rod. 


The Intersections can be counted one size class 
at a time or "dot tallied,” which takes slightly 
longer than counting. The actual diameter of the 
particle at the point of Intersection determines its 
size class. A go/no-go gage with openings of 0.25 
inch (0.6 cm), 1 inch (2.5 cm), and 3 Inches (7.6 
cm) works well for training the eye to recognize 
size classes. Count the 0- to l-inch (0- to 2.5-cm) 
Intersections on the 6,8-ft (2.07-m) transect (or 
whatever length Is chosen). See tally rules for 
qualifying particles. 


Less than 3-Inch diameters.— This material should be 
measured first to avoid disturbing It and causing 
inaccurate estimates. 
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step 2. Count the number of 1- to 3-inch (2.5- to 7.6-cm) 
particles. Proceed as in step 1, but use a longer 
sampling plane» such as 10 ft (3 m) The 50-foot 
tape can be used to mark the transect. Count the 
number of intersections of woody pieces between 
1 and 3 inches (2.5 and 7.6 cm) !n diameter. Refer 
to taily rules for qualifying particles. 

Three-Inch and greater diameters.— Measure or estimate 
the diameters of ail pieces 3 inches (7,6 cm) and larger at 
the point of Intersection with the sampling plane. Record 
true piece diameters to nearest whole inch regardless of 
angle of intersection. Record sound pieces and rotten 
pieces separately. For example, the data form insert 
shows that 5- and 6-Inch sound pieces were intersected 
and that 4-, 10-, and 6-inch rotten pieces were intersected. 


1 SOUND [ 

\ i5l 

ibl 1 1 1 1 1 1 1 1 1 1 t 1 1 1 1 1 1 1 1 < 1 1 1 1 


1 ROHEN 1 

1 1^-1 

lIlOl 1 ibl 1 1 1 ■L..Lu,.I I I I I I I I I I m I 


Consider pieces rotten when the piece at the inter- 
section Is obviously punky or can be easily kicked apart. 

A ruler laid perpendicular across a large piece of fuel 
works satisfactorily for measuring diameters (fig. 6). Be 
sure to avoid parallax in reading the ruler. See tally rules 
for qualifying particles. 



Figure 6. —Diameters of large fuels can toe 
estimated using a ruler laid perpendicularly 
across the pieces. 


Tally rules.— These rules apply to pieces of all diameters. 

1. Particles qualifying for tally include downed, dead, 
woody material (twigs, stems, branches, and bolewood) 
from trees and shrubs. Dead branches attached to boles 
of standing trees are omitted because they are not 
downed vegetation. Consider a particle downed when it 
has fallen to the ground or has been severed from its 
original growing point. Dead woody stems and branches 
still attached to standing shrubs and trees are not 
counted. 

2. Twigs, and branches lying In the litter layer and 
above are counted. But they are not counted when the 
Intersection between the central axis of the particle and 
the sampling plane lies In the duff (fig. 7). 



Planar Infersect: intersections qualify only in litter. 

Figure 7.— Regardless of size, pieces are 
tallied only when Intersection lies In and 
above the Utter 


3. If the sampling plane Intersects the end of a piece 
tally only If the central axis Is crossed (fig. 8). If the plai 
exactly Intersects the central axis, tally every other such 
piece. 


YES 



Figure 8.— An Intersection at the end of a 
branch or log must Include the central axis 
to toe tallied. 
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4. Do not tally any particle having a central axis that 
coincides perfectly with the sampling plane. (This should 
rarely happen.) 

5 If the sampling plane intersects a curved piece more 
than once, tally each intersection (fig. 9) 



Figure 9.— Count both intersections for a 
curved piece 


6. Tally wood slivers and chunks left after logging. 
Visually mold these pieces Into cylinders for determining 
size class or recording diameters (fig. 6). 

7. Tally uprooted stumps and roots not encased in dirt. 
For tallying, consider uprooted stumps as tree boles or 
Individual roots, depending on where the sampling planes 
Intersect the stumps. Do not tally undisturbed stumps. 

8. For rotten logs that have fallen apart, visually 
construct a cylinder containing the rotten material and 
estimate its diameter. The cylinder will probably be 
smaller in diameter than the original log. 

9. Be sure to look up from the ground when sampling 
because downed material can be tallied up to any height. 
A practical upper cutoff Is about 6 ft. In deep slash, 
however, It may be necessary to tally above 6 ft 


Duff Depth: 

Step 1: Measure depth of duff to the nearest 0.1 Inch, 
using a ruler held vertically at two points along 
the sampling plane: (1) 1 ft (0.3 m) from the 
sample point; and (2) a fixed distance of 3 to 5 ft 
(1 to 1.5 m) from the first measurement. 



^uff Is the fermentation and humus layers on the forest 
oor. It does not include the freshly cast material In the 
Iter layer. The top of the duff Is where needles, leaves, 
id other castoff vegetative material have noticeably 
3Qun to decompose. Often the color of duff differs from 
le litter above. Individual particles usually will be bound 
f fungal mycelium, When moss Is present, the top of the 
jff Is just below the green portion of the moss. The 
:?ttom of the duff Is mineral soil. 


Carefully expose a profile of the forest floor for the 
measurement (fig. 10) A knife or hatchet helps but Is not 
essential Avoid compacting or loosening the duff where 
the depth is measured Measure duff depth after sampling 
the downed woody material to avoid disturbing the 
downed woody material along the sampling plane. 



Figure 10.— Measure duff depth along an 
exposed profile of the forest floor from the 
top of the mineral soil to the bottom of the 
01 horizon. 


When stumps, logs, and trees occur at the point of 
measurement, offset 1 ft (0.3 m) perpendicular to the right 
side of the sampling plane. Measure through rotten logs 
whose central axis is in the duff layer (fig. 11). 


Yes- center of log is in duff layer or below. 
No= center of log Is above duff layer 



x===center of log 


Figure 11.— Duff depth is measured through 
a rotten log when Its central axis lies In or 
below the duff 
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Herbaceous Vegetation and Litter 

Step 1' View all four subplots and Judge which one has 
the greatest weight of herbaceous plants, both 
live and dead See table 2 for discussion of 
plants to be sampled here, The subplot picked 
with the greatest weight is the standard subplot 
and IS recorded as an 8 

Rate the amount of herbaceous plants on the 
remaining three subplots as a percentage of that 
on the standard subplot using the following 
codes established for these procedures: 

Percent Code 

0-5 1 

6-20 2 

21-40 3 

41-60 4 

61-80 5 

81-96 6 

96-100 7 



I % STAND 
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Step 5: Clip the herbaceous vegetation from the herb 
standard subplot and place in a paper bag. 
Collect litter from the litter standard subplot 
(right half only) and place in a paper bag Label 
bags with date, stand number, plot number, and 
litter or herb 

The samples should be ovendried at 95° C for a 
period of 24 hours. Record the ovendry weights, 
labeled as base weights on the inventory form, to 
the nearest 0,01 gram. Gunnysacks work well for 
transporting and storing samples. Airtight 
containers, such as plastic sacks, may promote 
decay. 


1 HERBS 1 

1 %STAND 


%C0V. 

BASEWT. 1 


M 

Kf 

Cl 

ilM 

Icl 

Cl 
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mm 
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nn 
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Step 2: For each Individual subplot, ocularly estimate the 
percentage of herbaceous vegetation that Is 
dead. Use the established percentage code. 

Step 3: Ocularly estimate, In percentage, cover of herba- 
ceous vegetation on subplots 1 and 2, (Percen- 
tage of cover Is the percentage of subplot area 
covered by a vertical projection of herbaceous 
material.) Record cover using the established 
codes. 

Step 4: View the right half of all four subplots and judge 
which one has the greatest quantity of litter. 
Occasional probing of the litter may help In 
judging quantities. Be sure to examine only 
material qualifying as litter. See table 2 for 
material to be included as litter. Record the 
standard litter subplot with an 8. 

Rate the quantity of litter on the remaining three 
subplots as a percent of that on the standard 
subplot. Be sure to view only the right half of 
each subplot. Use the established codes. 


Shrubs: 

Step 1: Shrubs are tallied on the two V4-milacre subplots 
(fig, 2) Using a 1,86-ft (57-cm) rod (radius of 
V4-mllacre plot), swing around the subplot center 
parallel to the ground and note the species that 
occur. Within each subplot, ocularly estimate 
percent cover of all shrubs together, both live and 
dead, according to the established percentage 
classes. 


1 SHRUBS 1 

%C0V 

'll. DEAD 

AVE HT (IN) 1 

4 

JL 

j_ 

1. 

_iM 

_lJj2 


Step 2: Ocularly estimate the percentage of shrub bio- 
mass that Is dead according to the established 
percentage classes. 

Step 3: Measure the height of shrubs withfn each subplot 
from the forest floor to what appears as the 
average top. Record to the nearest whole inch. 
Step 4: On each subplot, count the number 'of stems by 
species and the following basal diameter 
classes: 

0 to 0.2 Inch (0 to 0.5 cm) 

0.2 to 0,4 Inch (0.5 to 1.0 cm) 

0.4 to 0,6 Inch (1.0 to 1.5 cm) 

0.6 to 0.8 inch (1.5 to 2.0 cm) 

0.8 to 1.2 inches (2.0 to 3.0 cm) 

1.2 to 2.0 inches (3.0 to 5.0 cm) 

Over 2.0 Inches (6.0 cm) 

Determine basal diameters above the root crown 
or above the swelling of the root crown, which is 
usually within 1 or 2 Inches above the top of the 
litter. A go/no-go gage is helpful for checking 
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Shrubs 


Abbreviation 


diameters (fig. 12). The basal diameter classes 
are identified on the data form in centimeter 
units because they can be visualized more easily 
than Inches for estimating shrub diameters. 



Figure 12 — A go/no-go gage used for tally- 
ing the number of shrub stems by basal dia- 
meter classes. 
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Record species using the abbreviations In the fol- 
lowing tabulation. If a sampled species Is not In 
the list, record It as a low, medium, or high shrub, 
depending on the group It most resembles. 
Whenever LOW or MED abbreviations are used, 
left justify them (see insert of inventory form). 


Low shrubs: 

Snowberry (Symphoricarpos albus) SYAL 

Blue huckleberry {Vaccinlum globulare) VAGL 

Grouse whortleberry {Vaccinlum scoparium) VASC 

Wild rose {Rosa spp.) ROSA 

Gooseberry {RIbes spp.) RILA 

White spirea {Spirea betuUfoUa) SPBE 

Oregon grape {Berberis repens) BERE 

Thimbleberry {Rubus parviflorus) RUPA 

Red raspberry {Rubus Idaeus) RUID 

Combined species LOW 

Medium shrubs: 

Ninebark {Physocarpus malvaceus) PHMA 

Smooth menziesla {Menziesla ferruginea) MEFE 

Utah honeysuckle {Lonicera utahensis) LOUT 

Oceanspray {Holodlscus discoloi) MODI 

Evergreen ceanothus {Ceanothus velutinus) CEVE 

Mockorange {Phlladelphus lewlsli) PHLE 

Russet buffaloberry {Shepherdia canadensis) SHCA 

Big sagebrush {Artemisia tridentata) ARTR 

Common juniper {Juniperus communis) JUCO 

Combined species MED 

High shrubs: 

Serviceberry {Amelanchier alnifolla) AMAL 

Mountain maple (Acer g/abrum) ACGL 

Mountain ash {Sorbus scopullna) SOSC 

Mountain alder {Alnus sinuata) ALSI 

Redosler dogwood {Cornus stolonifera) COST 

Willow {Sallx spp.) SASC 

Chokecherry {Prunus virginlana) PRVI 

Combined species HIGH 

Small trees 
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Delineate the plot by swinging the 6.8-ft rod about the 
sample point pin and parallel to the slope. Within the 
1/300-acre plot, count the number of trees less than 10 ft 
(3 m) In height by species, Record' the number of trees 
within each species and average their height to the 
nearest 0.6 ft. To avoid the potential of a substantial bias, 
however, do not average heights differing by more than 
5 ft. If trees of the same species differ by more than 5 ft 
In height, record them separately on the data form. If 
more than five species are Identified, consolidate similar 
species. Tally only Individual trees that have survived one 
growing season, are free to grow, have good coloration, 
and have root systems In mineral soil. 

Use the following tree codes (single letter codes are left 
justified; see Insert of Inventory form): 
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Species Code 

Subalpjne fir {Abies lasiocarpa) AF 

DouglaS'fir (Pseudotsuga menziesii) DF 

Western redcedar {Thuja plicate) C 

Grand fir (Abies grandis) GF 

Juniper {Juniperus scopufarum) J 

Western larch (Lanx occidentafis) L 

Lodgepole pine {Pfnus contorta) LP 

Ponderosa pine (Pinus ponderosa) PP 

Western whit© pine (Pinus monticola) WP 

Whitebark or limber pine (Pinus albicaulis/ 

Pmus flexi/is) WL 

Engelmann spruce {Picea engelmannii) S 

Western hemlock (Tsuga heterophyfla) WH 

Mountain hemiock (Tsuga mertensiana) MH 

Pacific yew (Taxus brevifoha) Y 


Field Equipment 

Item 

1. 6.8-ft plot rod marked In 1-fl intervals (fiberglass rod, 
bamboo, or aluminum tubing works well) 

2. 1-ft ruler or steel pocket tape 

3. Go/no-go gage (can be cut from 1/16-1/8-inch sheet 
aluminum) or small caliper 

4. 1,a6-ft plot rod marked in 1-inch increments (wood dowel 
works well) 

5. Five chaining pins 

6. Four 0.98- by 1.97-ft (inside measurement) subplot 
frames, four pieces of y-i-inch square aluminum rod, 
loosely riveted at three corners, allows frame to be 
placed through and under vegetation. A solid frame is 
difficult to place without bias. 

7. Hand compass 

8. Relaskop, Abney, or clinometer 

9. Altimeter 

10. Increment borer 

11. 50-ft tape (reel up cloth works best) 

12. Gaming die or watch with second hand 

13. Paper bags (size 10 or 12) and rubber bands 

14. Grass clippers 

15. Clipboard, forms, maps, and pencils 

16. Pack, map tube 


Use 

Plot and transect layout, measure small tree and shrub 
heights 

Measure duff depth and diameter of intersected pieces 

Determine 'A-, 1-, and 3-inch diameters of downed 
woody pieces and 0.2-, 0.4-, 0.6-, 0.8-, 1.2-, and 2-Inch basal 
stem diameters of shrubs 

Shrub plot layout; measure height of small trees and 
shrubs 

Mark plot locations 

Sample herbaceous vegetation and litter 


Measure aspect. Locate sample points 

Measure slope 

Measure elevation 

Determine tree age 

Delineate sampling plane 

Orient sampling plane 

Collect herb and litter samples 

Clip subplots 

Record data 

Carry equipment. Map tube keeps small rods and subptc 
frames together. 


Sampling can be completed without a compass, slope instrument, or altimeter. If only a portion of the vegetation Is to 
be sampled, other equipment may be unnecessary. 
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Calculations 

The calculations of fuel loadings, biomass, and other 
inventoried properties are straightforward but detailed. To 
facilitate analysis^ a computer program that calculates 
means, standard deviations, and standard errors as a per- 
centage of means for the sampled properties is displayed 


in appendix III An example of the program output is 
shown in figure 13. Loadings are calculated for land 
projected to a horizonal plane. The data can be readily 
analyzed using a desk calculator. The following 
discussion explains how average biomass and fuel 
loadings can be calculated. 


PATTEE CANYON POSTFIRF 1960 

HABITAT TYPE CODE 260 
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Figure 13.— Output summary from computer program FUELS which analyzes the inven- 
toried data In figure 4, 
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pattee: canyon postfire igeo 

HABITAT TYPE CODE 260 
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* + ♦*** + ♦!)«* TOPOGRAPHIC CONDITIONS ***♦***♦** 

I AVERAGE MINIMUM MAXIMUM STD-DEV I 

1 j 

SLOPE I 20,5 7.0 53.0 12,32 I 

ASPECT I 171,0 I 

ELEVATION I 4H48, 3920. 5250, 395,3 I 


♦ ♦*♦♦** average live AND DEAD SHRUB LOADINGS IN POUNDS/ACRE *****^<* 

(FOR 104 PLOTS) 
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Downed Woody Material 

Besides the inventoried data on number of intersec- 
tions and piece diameters, calculations of loading require 
estimates of specific gravity, average diameters of 
particle size and classes, and nonhorizontal correction 
factors Precision of the calculated loadings depends on 
determination of these constants. Detailed instructions 
for computing loading are described by Brown (1974b), 

When inventorying large areas that hold many species, 
it is practical to use values based on a composite of 
species for specific gravity, average particle diameters, 
and nonhorizonal correction factors. The following 
formulas for calculating loading assume fixed values for 
these variables: 


1. 0- to 0.25-inch (0- to 0,6-cm) 


class w = 190.7 nc/(NI) 

(1) 

2. 0 25- to 1-inch (0.6- to 2.5 cm) 


class: w = 3,650 nc/(NI) 

(2) 

3. 1- to 3-inch (2.5- to 7.6 cm) 


class: w = 29,040 nc)(NI) 

(3) 

4 3 -t- -inch (7.6 + -cm) sound: 


w = 9,312 d2c/(NI) 

(4) 

5. 3 -(--inch (7.6-1- -cm) rotten: 


w = 6,984 d2c/(NI) 

(5) 


where: 

w = average loading, ovendry basis, Ib/acre 
n = total number intersections by particle class per 


stand 

= sum of diameters (inches squared for all 
intersected pieces per stand, inches^ 
c = planar slope correction factor 
N = number of sample points 
I = length of sampling plane. 

The slope correction factor is 



When n, d^ and c are totaled separately tor a stand, a 
bias that is probably small could result. Summing (n) • (c) 
or d^ • (c) over all plots would eliminate the biases. 

Litter and Herbaceous Vegetation 
Litter loading is calculated as: 

N 

w = 24.78 I c,w,(1 -H Pa -I- P3 -I- P4)i/N (7) 

i = 1 

where: 

c = topographic slope correction 
w = weight on standard plot, grams 
P = fraction of weight on standard plot tor individual 
subplots 

1 = index for sample points. 

Herbaceous vegetation loading Is calculated as: 

N 

w = 12.39 S c,w,(1 -I- Pa -f P3 -I- P4),/N (8) 

i = 1 


To calculate the amount of dead herbaceous 
vegetation, the fraction of weight on the standard plot is 
multiplied by the fraction dead. 

N 

® = 12 39 I C|Wj(Di -t- PaDa + ^3^3 (9) 

1-1 

where' 

D = fraction of dead on individual subplots. 

Use the midpoints of the established percentage 
classes for fractions in the calculations, 

The slope correction may be handled differently 
depending on the amount of slope and Its variability. If 
slope Is less than about 40 percent, the correction is 3 
percent and, for practical purposes, could be Ignored. 

If the slope In a stand is sleep and uniform, the slope 
correction factor can be muttiplled times the average 
stand loading rather than times the loading at each 
sample point. This also applies to calculation of shrub 
loadings 

Shrubs 

Shrub loading Is calculated by summing the weights of 
individual stems by species: 

N,2,7 

W = 8.8185 I Cj(SkWK)jj/(2N) (10) 

ijk 

where: 

s = number of stems per basal diameter class 
w = weight per stem of foliage and wood by basal 
diameter class (table 3), grams 
j = index for shrub subplots 
k = index for basal diameter classes. 

Dead shrub weight Is calculated by multiplying the frac- 
tion dead on each subplot by estimated weight per sub- 
plot. Thus, 

N,2,7 

w = 8.8185 X C|D,|(8 |<w,^)ij/( 2N) (1 1) 

ijk 

where: 

D s= fraction of dead shrubs per subplot. 

Weight per stem Is summarized In table 3 based on 
data by Brown (1976). Brown also presents relationships 
for estimating foliage and stemwood separately. 

Duff 

Duff loading Is calculated as: 

w = 3,630 Bd (12) 

where: 

B = bulk density, Ib/ft^ 
d = average duff depth for a stand, inches. 

Bulk densities can be obtained from table 1, the 
condensation of table 1 in the text, or from other sources. 

Small Trees 

Small tree loadings can be computed by summing the 
weights of Individual sample trees. The simplest approach 
is to first construct a table showing the total number of 
sample trees per stand by species and 1-ft height incre- 
ments. Loading for each species can then be calculated 
by: 


16 



10 

W ~ 300 J. Nj^w^/N (13) 

i = 1 

where: 

= total number sampled trees by height class per 
stand 

= weight per tree by height class, pounds 
i = index for height classes. 

Weights per tree as determined by Brown (1978) are 


summarized in table 4. The 300 m equation (13) expands 
1/300*acre plot estimates to a per^acre basis. If other plot 
sizes are used, the 300 should be replaced with appro* 
priate expansion factors. 

The procedures In this publication permit estinnation of 
total biomass and fuel loading of forest floor and under- 
story vegetation The estimates are appropriate for 
intensive land management and studies involving biomass 
and forest fuels. 


Table 3 —Total aboveground weight of shrubs by basal diameter classes 


Stem basal diameters (cm) 


Species 

0-0.5 

0.6-1 .0 

1.0-1.5 

1.6~2.0 

2-3 

3-5 

5-6 

















Low shrubs 

Snowberry 

2.8 

17.0 

54.6 

118.0 

226 

— 

— 

Blue huckleberry 

1 0 

12 0 

59.8 

173.0 

531 

— 

— 

Grouse whortleberry 

2,2 

12.1 

36.3 

74.8 

161 

— 

-- 

Wild rose 

1.9 

16.9 

70.0 

178.0 

480 


--- 

Gooseberry 

1.7 

20.0 

98.4 

281,0 

856 


— 

White spirea 

2.2 

17.4 

66.7 

168.0 

399 



Oregon grape 

2.0 

10.7 

31,3 

63.2 

133 

— 

— 

Thimbleberry 

2.1 

15.5 

56.6 

133 0 

328 



Red raspberry 

2.0 

19.3 

83.3 

218.0 

605 

— 

— 

Combined species 

2.0 

16,4 

64.1 

157.0 

407 

— 

— 

Medium shrubs 

Ninebark 

3.9 

19.9 

74.1 

176.0 

442 

1 150 


Smooth menziesia 

1.2 

8.7 

43.6 

126,0 

387 

1240 


Utah honeysuckle 

2.9 

18.5 

83 8 

226.0 

650 

1940 

— 

Oceanspray 

2.7 

18.1 

85.3 

237.0 

698 

2140 

— 

Evergreen ceanothus 

2.9 

17.3 

74.1 

193.0 

533 

1530 

— 

Mock orange 

2.6 

17.2 

79.6 

218.0 

636 

1930 

— 

Russet buffaloberry 

3.6 

16.5 

56.5 

127,0 

300 

730 


Big sagebrush 

3.0 

12.4 

38,9 

82.7 

184 

422 

871 

Common Juniper 

7.9 

31.4 

96.8 

203.0 

445 

1 010 


Combined species 

2.6 

15.8 

67.8 

177.0 

490 

1 410 


High shrubs 

Serviceberry 

3.4 

16.1 

70.2 

185,0 

519 

1510 

3 840 

Mountain maple 

4.0 

17.2 

70.0 

177.0 

417 

1310 

3180 

Mountain ash 

2.5 

11,5 

50 2 

132.0 

370 

1070 

2 720 

Mountain alder 

4.5 

16.7 

58.8 

136.0 

325 

809 

1 790 

Redosier dogwood 

4,8 

18.9 

70,6 

168.0 

420 

1090 

2 500 

Willow 

2.8 

12.3 

50.4 

128.0 

342 

950 

2 320 

Chokecherry 

2,7 

12.9 

57.4 

153.0 

434 

1280 

3 290 

Combined species 

3.6 

15.4 

60.9 

151.0 

394 

1 070 

2 560 
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Table 4 —Weight per tree of aboveground foliage, bark, and wood by 1-ft tree height increments 


Height 

Species 1 2 3 4 5 6 7 8 9 10 


Pounds 


DF,PP,S,AF 

0,03 

0 20 

0 56 

1.18 

2.09 

3.33 

4.94 

6 95 

9.39 

12.30 

WP.GF,WL 

06 

25 

61 

1 15 

187 

2 78 

3.88 

519 

6.71 

8.43 

C,L,LP 

.02 

13 

34 

.69 

1.17 

1.82 

2 64 

3.65 

4 84 

6.24 

WH 

.01 

05 

16 

.35 

64 

1.05 

160 

2.31 

3.18 

4.24 
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appendix I 

applicability of techniques 

Some techniques can be applied more widely than 
others without any known loss of accuracy. Limitations in 
applying the techniques can be inferred from knowing the 
sources of data underlying their development. Applica- 
bility of the techniques Is as follows; 

1. Downed woody material - Average diameters of size 
classes less than 3 inches (7.6 cm) are based on an 
average of major western tree species. The estimates of 
this material are robust and should be reasonably accur- 
ate in coniferous forests. More precision can be obtained 
using the procedures in Brown (1974b). No limitations are 
built into the technique for material greater than 3 inches 
(7.6 cm) In diameter. 

2. Litter and herbaceous vegetation - The relative 
estimate technique has no geographic restrictions. 

3. Duff - Estimates of depth apply without geographic 
limitations. However, the duff bulk densities used to 
determine loading are based on a small amount of data 
from western coniferous forests. Although the loading 
estimates are probably applicable throughout coniferous 
forests In the United States and perhaps elsewhere, they 
should be viewed as crude approximations. 

4. Shrubs - Biomass estimates are based on data from 
shrubs In western Montana and northern Idaho. The 
weight relationships for low, medium, and high shrubs 
may be used to estimate biomass of any species. 
Accuracy of these relationships outside of the Northern 
Rocky Mountains is unknown. 

5. Small trees - Estimates of biomass for trees less 
than 10 ft (3 m) In height are based on data from western 
Montana and northern Idaho for Engelmann spruce, 
western hemlock, western white pine, whitebark pine, 
ponderosa pine, lodgepole pine, grand fir, western 
redcedar, western larch, Douglas-fir, and subalpine fir 
(Brown 1978). Equating a species not listed to one of the 
above may provide reasonable estimates of biomass; 
however, accuracy of this substitution is unknown. 


Table 5,— Average coefficients of variation from stands sampled \ 


Cover type 

Litter 

Herbaceous 

vegetation 

Ponderosa pine 

93 

79 

Douglas-fir 

91 

86 

Grand fir 

131 

76 

Engelmann spruce- 
subalplne fir 

122 

81 

Average 

109 

80 


APPENDIX II 

SAMPLING PROCEDURES 

Use of these procedures in the Selway-Bitterroot 
Wilderness (Habeck and Mutch 1973) provided a basis for 
determining desirable sampling intensities as shown by 
the coefficients of variation in table 5. Number of sample 
points can be calculated for any chosen percent error 
(Avery 1967) from; 



where; 

cv = (standard deviation/mean) 100 

Percent error = (standard error of mean/mean)100. 

Figure 14 shows sampling intensities for herbs and fine 
fuels, cv = 80; litter, cv = 100; and shrubs, cv = 140. 
Fine fuels consist of litter, herbs, and 0- to V^-inch (0- to 
0.6-cm) downed woody material. The sampling Intensities 
for fines agree with those in Brown (1974b) for 0- to 1-inch 
(0- to 2.5-cm) downed woody material. Generally, for a 
given level of precision, estimates for combined vegeta- 
tive categories require fewer sample points than lor indi- 
vidual vegetative categories. 

A scattergram of mean estimates and percent errors 
showed a lack of correlation. Thus, figure 14 should apply 
to loadings ranging from light to heavy. Cover types 
appeared to slightly influence coefficients of variation 
(table 5). For example, for a given percent error, fewer 
sample points are required to estimate litter in ponderosa 
pine and Douglas-fir than In the grand fir and spruce-fir 
types. This seems reasonable because litter Is more uni- 
form In ponderosa pine and Douglas-fir stands. For the 
most part, however, differences among cover types in 
table 5 provided little guidance on sampling Intensities. 
Advance knowledge about the uniformity of fuels should 
be more useful In deciding upon sampling intensities than 
cover type. 

Coefficients of variation for shrubs varied considerably 
from stand to stand. High coeff>^i“"te w'* 
due to occasional plots fall! 
shrubs. The number of plots 
percent error might easily be 
less than suggested in finiire u 




Figure 14.— Number of sample points 
related to percentage of error based on data 
from the Selway-Billerroot Wilderness, 

Idaho 


Quantity of downed woody material larger than 3 
inches (7,6 cm) in diameter can vary considerably with 
stands. As number of pieces per acre increases, 
variability among sample points tends to decrease and 
sampling effort can be reduced to achieve a given samp- 
ling precision. For large diameter pieces, the sampling 
plane should be long enough so that on the average, at 
least one Intersection occurs with three-fourths or more of 
the planes A large sampling variance results when many 
zeros are recorded for intersections. In areas where very 
little downed material exists, sampling planes should 
actually be one to several hundred feet long to provide 
respectable precision. As an average for coniferous cover 
types, use of 35- to 50-ft (10.8- to 15.2-m) sampling planes 
should require sampling intensities similar to litter 
(fig. 14), 


APPENDIX III 

COMPUTER INSTRUCTIONS 

This appendix explains how to set up and operate a 
computer program for calculating results from the inven- 
fory data. It includes a listing of the computer program 
and instructions for punching and verifying data. 


ADP Program Writeup 

Description 

SYSTEM 

PROGRAM 

LANGUAGE 

MACHINE 

USAGE 


STAND BIOMASS 
FUELS 

ASCII FORTRAN V 
PERKIN ELMER 3200 
BATCH 


Purpose 

This program performs calculations of the sampling 
results shown in figure 13. The program produces weight 
in pounds per acre and kilograms per square meter of 
forest floor duff, forest floor litter, herbaceous vegetation, 
shrubs, small conifers, and downed woody material. Also, 
estimates for live and dead vegetation by diameter size 
classes are furnished. This information has application In 
research investigations and intensive forest management. 

Input 

The program accepts data from the inventory form in 
figure 4. The input data must follow the sequence of the 
data form. The record order of Card 1 through Card 6 for 
each plot is required. The data must be on an input 
medium which will allow REWIND, i e., a magnetic tape or 
disk file. The present program reads the parameter card 
from the card reader designated LU 60 The input data file 
IS read from LU 5. 

The first parameter card is a title card for the run. The 
second parameter card defines one of the three output 
options available. The options are: 

1. Individual stands 

2. Sorted by cover type 

3 Sorted by habitat type. 

All the acceptable cover type, habitat type, tree and 
shrub species codes are found in the text. 

Output 

The program will produce two pages of output (fig. 13) 
for each stand of input. Also, two pages of output will be 
produced for each cover type or habitat type. 

Method 

The program contains a set of constants tied to the 
sampling techniques described in the text: XLOAD, 

ZLOAD, YLOAD(I), YLOAD(2). They convert all units to 
tons per acre and also account for the nonhorizontal 
particle correction, particle density, and the n^/e portion 
of the planar Intersect formula. YLIT and YGFS convert 
the plot weights to the proper weight units. If any varia- 
tion of the sampling technique is used, these constants 
will require recalculation, 

Runstream 

As stated earlier, the inventory data must be a file on 
disk, tape, or other medium that allows REWIND, The 
parameter cards are read from the card reader. The 
formats are: 


CARD 1 

TITLE CARD 

cc 

Description 

1-60 

Free field to Identify run 

CARD 2 

TYPE OF RUN 

cc 

Description 

1-19 

Sort desired on date, legal options are: 


cc 


1 5 10 15 

STAND SEPARATELY 
COVER TYPE 
HABITAT TYPE 
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FUNCTION * 


D- DUPLICATE S-SKIP V- VERIFY 
P- PUNCH L-LEFTJU5 


CARD FIELD 


STAND NO. 


PLOT NO. 


TERRAIN SLOPE 


ASPECT 


ELEVATION 


STAND AGE 


COVER TYPE 


HABITAT TYPE 


PLANER SLOPE 


TRANSECT LENGTH (0-1) 


TRANSECT LENGTH (1-3) 


NO INTERSECTS 0-1/4 in. 


NO INTERSECTS 1/4-1 in. 


NO INTERSECTS 1-3 in. 


TRANSECT LENGTH >3 in. 


DIA. >3 in. SOUND 


SKIP 


CARD NO. 


from! TO COLS. * 


PROGRAM 


NAME 


PROGRAM 

DATE 

NUMBER 


PREPARED 

PAGE 

BY 

_Lof i- 

REMARKS 



74 79 


80 


PUNCH "1" 
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FUNCTION * 


PROGRAM 

NAME 


D- DUPLICATE S-SKIP V- VERIFY 
P- PUNCH L-LEFTJU$ 


CARD FIELD 


V- VERIFY Sr 

L- LEFT JUSTIFY [^wred' 


COLUMNS NO. FUNC. 

from! to cols. * 


PAGE 

2— .of _6_ 


REMARKS 
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FUNCTION * 


D- DUPLICATE S- SKIP V- VERIFY 
P- PUNCH L-LEFTJU' 


CARD FIELD 


PROGRAM 

NAME 


y.WCnipY PROGRAM 

V VLKirt NUMBER 

L- LEFT JUSTIFY prepared 

dY 


COLUMNS NO. FUNG. 


PAGE 

-Hof 



FROM 

JOJ 

COLS.I 

STAND NO. 

1 

BHI 

PLOT NO. 

5 

8 

m 

SUB-PLOT 

9 

■ 

B 

SPECIES 

10 

13 

4 

NO STEMS 0-0.5 

14 

16 

3 

NO STEMS 0.5-5+ 

17 

28 

12 

SUB- PLOT 


29 

1 

SPECIES 

30 

33 


NO. STEMS 0-0.5 

i 

34 ; 

36 

3 

NO. STEMS 0.5-5+ 

37 

48 

12 

SUB-PLOT 

illll 

49 

B 

SPECIES 

50 

53 

B 

NO. STEMS 0-0.5 

54 

56 

3 

NO. STEMS 0.5-5+ 

57 

68 

12 

SKIP 

69 

79 

11 

CARD NO. 


80 




RE1W\RKS 



If no stems recorded do not 

niinrh 'FhoQO 


ALPHA 



6 2-digit nos, 



6 2-digit nos. 



6 2-digit nos, 
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FUNCTION * 


PROGRAM 

NAME 


D- DUPLICATE S-SKIP V- VERIFY 
P- PUNCH L- LEFT JU5 


CARD FIELD 


SPECIES 


NO STEMS 0-0.5 


NO STEMS 0.5-5+ 


SUB-PLOT 


SPECIES 


NO STEMS 0-0.5 


NO STEMS 0.5-5+ 


SUB-PLOT 


SPECIES 


NO STEMS 0-0.5 


\/-\/FRIPY PROGRAM 

V VllKlrT NUMBER 

L- LEFT JUSTIFY prepared 

dY 


page 
4 of jS_ 


COLUMNS 


FROM TO 


FUNC. 

* 


REMARKS 



37 48 12 


6 2-digit nos, 
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FUNCTION * 


D- DUPLICATE S- SKIP V- VERIFY 
P- PUNCH L-LEFTJU5 


CARD FIELD 


STAND NO. 


PLOT NO. 


SUB-PLOT 


SPECIES 


NO. STEMS 0-0.5 


NO. STEMS 0.5-5+ 


SUB-PLOT 


SPECIES 


NO. STEMS 0-0.5 


NO. STEMS 0.5-5+ 


SUB-PLOT 


SPECIES 


NO. STEMS 0-0.5 


PROGRAM 

NAME 


V^WpDJpY PROGRAM 

'' VLr\irT NUMBER 

L- LEFT JUSTIFY prepared 

BY 


of ,..6, 


COLUMNS NO. FUNC. 

from! to cols. * 


REMARKS 
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FUNCTION * 


D- DUPLICATE S-SKIP V- VERIFY 
P- PUNCH L-LEFTJU5 


CARD FIELD 


PLOT NO. 


SUB-PLOT 


SPECIES 


NO. STEMS 0-0.5 


NO. STEMS 0.5-5+ 


TREE COUNT SPECIES 


0 . 


" HT. 


" SPECIES 


0 . 


" HT. 


" SPECIES 


" NO. 


SKIP 


CARD NO. 


PROGRAM 

NAME 

PROGRAM 

DATE 

NUMBER 


PREPARED 

PAGE 

BY 

.6 of _£_ 


COLUMNS NO. FUNC. 

from! to cols. * 


REMARKS 



10 13 


14 16 


29 30 


31 32 2 


17 28 12 


2 


33 34 2 


35 36 


37 38 


39 40 


41 42 


6 2-digit nos. 


ALPHA 



ALPHA 



79 21 


80 1 


PUNCH "6" 







































































































src Docu 


l-VIID RO'4-00 

iVIIO! LTCF^»SCn RESTRTCTED PiGfjTS AS STATFn Ul LICFMSE r--0156 
%Uf\rCA\ 

C INPUT RATA FRn'^1 UNIT TIP 

C 


c 

r.ARU NO. 1 


c 

COLUMN 

WAPTAPI E 

DESCRIPTION 

c 

1-4 

ISTN 

stand nlimrfr 

c 

5-8 

TPI T 

PLOT NUMREP 

c 

9-10 

TRSL 

terrain SLApc IN percent 

c 

11-1 

ASPT 

ASPFCT In f^EGREES 

c 

14-17 

FLF\/ 

elevation tn feet 

c 

1 0-?0 

SAGE 

stand AGF 

c 

21-?3 

IC\/T 

COVFR TYPE 

c 

24-P8 

IlIRT 

habitat type 

c 

27-?fl 

PLSU 

PLANER SI OPF IN PERCENT 

c 

29-30 

TSI 1 

transect length 0-1 

c 

31-33 

TSI 3 

TRANSECT length 1-3 

c 

34 — 38 

XNIl 

NUMBER OF INTERSECTS 0-1/4 

c 

37-38 

XNT2 

NUMBER or INTERSECTS 1/4-1 

c 

39-40 

yNT3 

NUMBER OF INTERSECTS 1-3 

c 

41-43 

TSt 4 

TRANSECT LENGTH 3+ 

c 

r 

44-73 

n I A ( I 1 1 ) - 

DIAMETER 3+ SOUND (10 3-DlGIT NOS. IE.I= 

Lf 

c 

CARO NO. ? 


c: 

COLUMN 

VARIARI E 

description 

c 

9-38 

niAdt?) - 

DIAMETER 3+ ROTTEN (10 3-CITGIT NOS, lE.T 

c 

39-44 

ODPd) 

DUFF depth (2 3-DIGIT NOS. IE, 1=1,21 

c 

45-3? 

IGFd,,I) - 

GRASS-FOPBS cover AS PERCENT OF STANDARD 

c 



1=1.4 REPLICATIONS 

c 



J=1 FOR t STANDARD , J=2 FOR % DEAD 

c 

53-54 

IGFC(I) - 

PERCENT GRASS-FOPB COVER 

c 



1=1.2 REPLICATIONS 

c 

55-59 

WGFB 

WEIGHT OF GRASS-FORB BASE 

c 

60-63 

TLTSdl - 

litter cover as PERCEfMT OF STANDARD 

c 



1=1.4 REPLICATIONS 

c 

64-68 

WLTO 

weight of 1 TTTE“ 

c 

69-7? 

TBCd.v)) - 

PERCENT BRUSH ' 

c 



1 = 1.2 RFPI If 

c 



J=1 FOR TOT 

c 

73-78 

ABRHd) 

■AVERAGE PRU 

c 

r 



1=1,2 REPL 

u 

c 

CARD MO. 3 


c 

CAROS ?. 

m4<5 


c 

COLUM VARIABLF 


c 

10-13 

ispd) 

brush SPEC! 

c 

34-28 

MSTd,,)) - 

NUMBER OF S 

c 



J=1.7 CLASS 

c 

30-33 

ISP (I) 


c 

34-48 

MSTd , J ) 


c 

50-53 

rspd ) 


c 

54-68 

MSTd.J) 


c 


,++++++++ 

this INPUT 

c 



1=1.10 

c 

CARD 6 

' ' ' 


c 

COLUMN 

i/ARIABI E , 
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LJ O LJ 


'(-00 


03/C 


TCEMStO PtSTUCTEO RIGHTS AS STATEn IN LICENSE E-Q156 


C 10-13 ISP(I) 

C 14-?A ilSl ( 1 , J) 

29-10 ISPYCI) 
31-32 NSTE.'T(I) 
33-3M ASP(I) 

C 35-3e +++++++ 

c 


SEEULTMG SPECIES CODE 
number of STEI'IS 
AVERAGE SPECIES HEIGHT 
REPEAT 29-34 


***. SEE DOCUMENTAT 


CHARACTER NAME*6 i I ICL*5t IC0N*5 


DIMENSION OlA(10i2). DnP(2)» lGFr4.2)i ILTS(4) 

*>, 

IIBC (2«2) 1 ABr?H (2 ) 1 1SPf 20) »NST ( 10 1 7 ) t ISPY ( 4 ) , NSTM ( 4 ) ♦HSP(4) ,IGFC(2) 
2,UnC(R) ,£DC( 4 ) *C0DC(9) . YLOAD ( 2 > » TCOI ( 5 ) » I ICL ( 9 ) * REG ( 7*20 > 

3IFTP( 5) ,NSP(2fl I .STCn2) »AC7il2)tB(7tl6) . ISPX { 19 ) , NAME ( 2 « 26 ) 

COM'-iOM XLDS(28*20) ♦XL[l2(2fl,20 ) . DEP ( 12 , 20 ) i PCV (4 , 20 ) « XNDP < 8 » 20 ) i X ( 2 
IS) tAOIA(2tP0) ,XfjD(2 .20 ) .DEp2(2.20 > . SHWT ( 7 . 28 ♦ 20 ) »XN(20) .DMX (2.20) . 
2XNLT (20 .XNGF (20) .DMN(2.20) iNSDL(19t20) .SDLH( 19.2 0 ) .XDLH( 19 .20) . TC 
3 cA( 3.20) .TCON(2.20) .TCOX(2.20) .7002(2.20) .STCA(2.20) .STCN{2.20) .ST 
4CX{2.2(') iSTC?(2.20) 

COMMON /HER/ iHEAP(lb) . ICLr(144) . ICON ( 2 ) . I LAST . KEY » X INC . NPS . I Cl t IP 
1S(1H4) . ICVT. IHBT .SAGE, IDUMK 10 0) ,IY 

EQUIVALENCE (BDC(2),EDC) 


EQUIVALENCE ( TCO I ( 1 ) , TKSL ) , ( TCO I ( 2 ) . ELEV ) , ( TCOI ( 3 ) , ASPT ) 

EQUIVALENCE ( STC I ( 1 ) . SAGE ) , ( STCI ( 2 ) , HCRB ) 

EQUIVALENCE ( A ( 1 . 1 ) .REG ( 1 , 1 ) ) , ( B ( 1 , 1 ) , REG ( 1 . 13 ) ) 

DATA IICL/ 'STAND', 'COVER'. 'HABIT', 6* » ♦ / 

data eDC/3.0, G.O, 10,0. 20,0.999,9/ 

DATA IFTP/lhG. IHH, IHSt IHL, IHT/ 


DATA ISPX/'AF'. 'AH'. ♦ AP ' , 'B 'C *CW' . • DF ♦ i 'GF*. 'J 
I'L 'LP'. 'MH*. 'OH*. 'PP', 'S 'WH'. 'WL*. * WP ♦ , »Y ♦/ 


DATA A/ 

* 3.44.16.06,70,19,165 
+ 3.95.17.16,69.97.176 

* 2,40,11.52.50.19,132 

* 2.72,12.92,57.43,153 

* 4.47,16.67,58.75,134 

* 4.79,18.92,70.50,167 

* 2,82,12.29,50.37,127 

* 3.93,19,86,74.06,176 

* 1.21, 8.73,43.64,125 

* 2.88,18,49,83.75,226 

* 2,69, 18.11,85.27,236 

* 2.89,17.30,74.09,193 


.4,519.2,1512. ,3840, t 
.6,417.4,1306. ,3175, , 
.3,369.8,1074. ,2724 . , 
.4,434.7,1281. ,1071., 
.7,324.6, 809, ,1793., 
.7,420.1 ,1090. ,2503., 
.6,341.6, 950. ,2318., 
.2,441.6,1146., — 1., 
.9,387.4,1243., -1., 
.5,650.3,1943., -1., 
.6,697.9,2145., -1., 
.1,533.1,1529., -1. 


/ 


30 



\0C5'Ni(r‘Ui'PC>irov^ 4roiiv>i-* 


HOit-OO 

; LICENSED RESTRICTED RIGHTS AS STATED IN LICENSE E-0156 


03/0^ 


***, SEE DOCUMEMTAT 


DATA R/ 

* 2.61 ,17.21 t 79. 62, 218,4, 636, 5, 1932. 

♦ 3. 64, 16. 52.56. 49,127.0,299.61 730. 

* 3,02,12.38,30.91,82.74,184.1, 422. 

* 7.87,31.42,96.77,203,0,445.3,1006. 

♦ 2.22,12.12,36.22,74.82,161.0, -1, 

* 2.79,16.99,54.59,117.8,266.1, -1. 

* .99,11.96,59.79,172.6,530.8, -1. 

* 1.88,16.92,69.97,178.2,480.3, -1. 

♦ 1.69,19.96,98.36,281.2,856.3, "1. 

♦ 2.21,17.37,65.70,157.8,399.4, -1. 

* 2 » 0 5 , 1 0 . 74 , 31 » 27 , 63.7,133.3, ”1. 

* 2.08,15.47,56.56,132.9,328.5, -1. 

♦ 2.01,19.32,83.28,218.0,604.6, -1. 

♦ 1.99,16.41,64.08,157.2,407.0, -1. 

♦ 2.63,15.79,67.80,177.1,489.9,1408. 

♦ 3.64,15.35,60.67,150,8,394.7,1071. 

C 

c 

data NSP/4HAHAL, 4HACGL, 4HS0SC, 4HPRVIi 4HALSI, 

4HC0ST, 4HSASC, 4HPHMA, 4HHEFE, 4HL0UT, 

4HH0DI, 4HCE\/E, 4HPHLE, 4HSHCA, 4HARTR, 

4HdUC0, 4HVASC, 4HSYAL, 4HVAGL, 4HR0SA, 

4HRlLA,4HSPt3E,4HBERE,4HRUPA,4HRUID,4HL0W ,4HMED ,4HHIGH / 

data name/ *SERV1C* , *EBERRY‘ , ‘MTN, M*,'APLE *,*MTN, A’,*SH 
•CHOKEC* , 'MERRY *,»'^TN, A'.'LDER * , ' DOGWOO • , * D 
•NTN, W*,*ILL0W * , 'NINEBA* , *RK • , 'MENIES* , 'IA 
•HONEYS', 'UCKLE ', 'OCEANS' , 'PRAY • , 'CEANOT' , 'HUS 
'MOCKOR* t'ANGE ’ , • BUFFAL • , ' OBERR Y ♦ , ' SAGE3R * , 'USH 
' JUNIPE* ♦ 'R ' , 'WHORTL' , 'EBERRY' , • SN0W8E ' , ’ RRY 

•HUCKLE' , 'BERRY ','ROSE ',* ' , 'GOOSEB' , 'ERRY 

•W. SPI*,'REA ', 'OREGON* , 'GRAPE *,' THIMBL EBERRY 
•RASPBE • , »RRY ',*LOW *,' ', 'MEDIUM ', ' *, 

'HIGH *,' ♦ / 

C 

C SET ALL CONSTANTS 

C 

IBN s 0 
IIP = 5 
lNs:4 
IC=6 

ACRE=43560, 

XL0A0=12651. 29072 
ZL0A0s:10542. 74226 
YL0AD(1)=9329, 86042 
YL0AD(2) = 6964.0 
YLITsO. 002276 
YGFS=0. 001138 
GRAM=12. 00 
C00E(l)=0,025 
C0OE(2)=0,12S 
CODE(3)=0.300 
CODEf4)=0,500 
CODE(5)=0.700 
CODE(6)=0,87S 
COOE(7)=0.975 


871., 

1 • f 
*•1 • t 
^ 1 • f 
“ 1 • t 

*“ 1 ♦ f 
"1 • t 

" 1 • f 

• 1 t 

1 • I 

- 1.1 

2560, / 
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R04-00 


03/0 


LICEhStO RESTRICTED RIGHTS AS STATED IN LICENSE E-0156 *♦*» SEE DOCUMENTAT 

C0UE(8)=1.0 

conE(g)=o,o 

ILAST=-99g9 

READ IN the title CARD 

REAOdNtlO) (IH£AD(I) .I = 1»15) 

10 F0R.TAT{15A4) 

REAL) IN THE CONTROL CARD 

20 I2sl2 

REA0( IWt30»ENO=197) 

* (TC0N( I ) t I = l»2) I (IPS( I ) ,ICLT( I) .1 = 1*12) * IX 
30 F0RHAT(2A5.9X.12(A1.A4) «A1) 

iFdCONd ). EG. ‘STOP ») CALL EXIT 

*** INTERPRET CONTROL CARD AND SET PARAMETERS 

MC = 1 
NPS = 1 
ICl = 1 
DO 40 1=1.3 

IFdiCLd) .EQ.ICONd) ) GO TO 45 
40 COrgTIMUE 
GO TO 50 
45 KEY=I 

IF <KEY.LE.a) GO TO 90 

* CHECK FOR CONTINUATION AND READ THEM IN 
50 WRITEdO.GO) 

60 FORMAT ( /// . 52H************ ERROR ♦♦**♦*♦♦♦* ERROR ♦♦♦♦♦♦♦♦♦♦♦♦ 

1// lOX. 'CONTROL CARD IN ERROR - THE CORRECT COOES ARE STAND . HA 
2BITAT type i COVER TYPE* // .^0H»*** PROGRAM TERMINATED ♦♦♦* ) 

CALL EXIT 

* SET THE CONTROL KEY 
90 GO TO (170.120.120) .KEY 

* SLOPE. ELEVATION. ASPECT. AND STAND AGE CLASSES 


* COVER TYPE and HABITAT TYPE 
120 12=0 


REWIND THE DATA TAPE 
170 REWIND Up 

*** ZERO OUT all storage ARRAYS 

CALL ZERO (20) 

IC = 1 
lY = 0 


32 
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f( 04-00 03/0‘' 

LICFIMSED KCSTI^ ICTEO rights as STATEn IN LICENSE F-0156 ***, SEE DOCUMENTATl 

C 

C *** REAG IN SOME DATA 
C 

leO READ(IIPil90iENH=5fl0) 

* ISTN»IPLT»TRSL» ASpT,FLCV*SAGE»ICVT,IHHTtPLSLiTSLli 
1TSL3,XN11 , XNl2tXNI3«TsL4* (DlA(I,l),I=l« 10 ) 

190 format (?I4.F2.0, F3.0,F4.0,F3. 0. A3, 13, F2.O,F2.1,F3,l,F3.O,2F2,0»F3. 

10,inF3.0 ) 

C 

c 

C *♦* IF THIS READ MARKS ENO-OF-FILE ON ITP CALL OUTPUT 
C 

IF (TSL1*TSL3*TSL4,GT.0,0 ) GO TO 196 
WRITE (10,19':) I STN , IPLT , TSLl , TSL3 , TSL4 

195 FORMAT ( iHl , lOX , 46H** ERROR ***** DATA ERROR ***** ERROR ♦*, 

1//,16X, 'STAND NUMBER ',14,', PLOT NUMBER • , 14 , / , lOX , • 0-1 TRANSECT 
2LENGTH =',F6.1,' FT ' , / , IQX , • 1-3 TRANSECT LENGTH =',F6,1,» FT',/, 18 
3X,’3+ TRANSECT LENGTH =',F6,1,* FT ' , / , lOX , • ALL TRANSECT LENGTHS H 
4UST BE GREATER THAN ZERO • , // , lOX , 46H>t<******** CHECK CARD AND RESU 
5BMIT *)«***>t:3f** ) 

197 CALL EXIT 

196 IF (ASPT.GE. 360,0) ASPT=ASPT-360 , 0 
READ IN THE REMAINING 5 CARDS OF DATA SET 

READ (I IP, 200) (DIA( 1,2) ,1=1,10) , (DDP( I) ,1 = 1,2), ( <IGF( I, J) ,Isl,4> ,J 
1 = 1,2) ,IGFC,WGFB, <ILTS(I ) , 1 = 1 , 4 ) , WLTB , ( ( IBC ( I , J ) , 1 = 1 , 2 ) , J=1 ,2 ) , ( ABR 
2H(I>,I = 1,2),(ISP<I), (I\IST( 1, J) ,J=1,7) , 1=1 , 10 > , ( ISPY ( I ) ,NSTM( I ) ,HSP( 

II), 1 = 1, 4) 

200 FORMAT(8X,10F3.0,2F3,1,10I1,F5,2,4I1,F5.2,4I1,2F3,0 / 

* 8X,3{1X,A4, 13,61 
1P)/0X,3(1X,A4,I3,6I2)/8X,3(1X,A4, I3,6I2)/8X,1X,A4,I3,6I2,4(A2,I2,F 
32.1) ) 


^*** SET parameters BASED ON DESIRED ACTION 
GO TO (210,250,260 ) ,KEY 

♦ STANDS SEPERATE 

2X0 IF ( ILAST.EQ.ISTN) GO TO 330 
IF ( ILAST,EQ.-9999) GO TO 220 
CALL OUTPUT (NC,IBN,ISPX, NAME, 10) 

IBN = 0 
lY = 0 

CALL ZERO (NO 
220 ILAST=ISTN 
GO TO 330 

* COVER TYPE 

250 IK=ICVT 
GO TO 270 
C 

C ♦ HABITAT type 


33 
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KO^-OO 


03/0 


: LICE^'SED RESTRICTED RIGHTS AS STATED IN LICENSE E-0156 SEE DOCUMEWTAT 


260 rK=lHBr 

270 UC 200 I=IC1,I2 

IE (iK.EQ.ICLTd) ) GO TO 290 
280 CCNTINUE 

IF (IC1.Gt.1.0R.I2,GE«1'*4) GO TO 180 

T2=I?+1 

ICLT( 12 )=IK 

r)PS = i2 

IF {I2.GT.20) 60 TO 180 
IC = 12 
NC = 12 
GO TO 330 
290 IC=I-IC1+1 

IF ClC.r,T.20) GO TO lOO 

C *♦* CALCULATE PLANER AND TERRAIN SLOPE CONSTANTS 

330 PSLPsS0RT( 1 .0+(PLSL/100,0)**2.0) 

TSLP=SQRT( 1 .04 (TRSL/100.0)**2,0) 

+*♦ CALCULATE THE LOAD IN POUNDS/ACRE FOR ALL SIZE CLASSES 

* FIRST SET MULTIPLICATION CONSTANTS BASED ON COVER TYPE 

DO 333 IJJslil9 

IF ( ISPX< IJJ ) .EG.ICVT) GO TO 336 
333 CONTINUE 
IJJ r 20 

336 CALL LOOK{ IJJiAl* A2iA3) 


* load case is 0-1/4 

X(1 )=XL0AU*A1:»XNI1*PSLP/TSL1 

* LOAD CASE 2: 1/4-1 

X(2 )=XL0AD*A2*XNI2*PSLP/TSL1 

* LCAO case 6; 1-3 

X C6)=ZL0AD*A3*XNI3*PSLP/TSL3 

* LOAD CASE g- 12 ; 34 SOUND BY SIZE CLASS 

* LOAD CASE 14-17: 3+ ROTTEN BY SIZE CLASS 

DO 360 L=li2 

VV-^ n n 

'=li4 

LO 

I ,LT.BDC(J) .OR.DIA(I.L) .GE.EDCC J) ) GO TO 340 

:A ( I tD+DTA ( I 1 L) 

miA(L.IC)+DIA(ItL) 

JD (Li 10+1,0 
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03 / 04 / 


fJSElD restricted RIGHTS AS STATED IN LICENSE E-0156 ♦♦♦, SEE DOCUMENTATIO 

X t K ) =YLOADCL ) *SND2*PSLP/TSL4 
XX = XX + X(K) 

00 CONTINUE 

l-oad case 13: 3+ SOUND total 

^ load CASE 18: 3+ ROTTEN TOTAL 

K - K + 1 
X ( K > = XX 
60 CONTINUE 

I F ( WLTB.EQ.O ,01 GO TO 380 

xx=o,o 

DO 370 1 = 1,4 

js: I LTS ( I 1 

IF (J,LE,0) J = 9 

XX = XX+CODE(<J) 

•70 CONTINUE 

X 1 3 >=YLIT#ACRE*hlLTB*XX*TSLP/4,0 
X NU T ( 1C )=XNLT(IC 1 + 1,0 
GO TO 390 
eo X < 3 ) =0.0 

* LOAD CASE 4S DEAD GRASS-FORBS 
=* L.OAD CASE 22: LIVE GRASS-FORBS 

90 XX = 0.0 
X Y = 0,0 
Y Y =0,0 
YX =0.0 

TF <WGFB,eQ.O.O) GO TO 410 
DO 400 1 = 1,4 
O— rGF< 1,1) 

K = IGF( 1,2) 

IF <J,LE,0) J=9 
IF <K,LE,0) K=9 
Yy=:YY+COOE(K) 

YX = YX+C0DE( J) 

CON=COOE( J)»C0DE<K) 

XX = XX+C0DE( J)-C0N 
X Y = XY+COt\l 
OO CONTINUE 

X < 22)=YGFS*ACRE*WGFB*XX*TSLP/4.0 
X < 4 >=YGFS*ACRE*WGFB*XY*TSLP/4,0 
XNGF< Id =XNGF( 10+1,0 
GO TO 420 
10 X < 4 )=0.0 

X < 22) = 0.0 

LOAD CASE 19: DUFF 

20 CON = 10,0 

I F c ICVT.EQ.SHPP 1 CON = 5.0 

I F ( 1CVT,EQ.3HLP ♦ OR . ICVT , EQ . 3HDF ) CON = 8,0 
CE;pDF=(D0p<l)+DDP(a) )/2.0 
X < 19 >=C0N*DEP0F*ACRE/GRAM 
^<5} = X(1 )+X(2)+X(3)+X(4) 

Xt7 ) r X(5> + X(6) 
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I.ICEKSED HESTPICTEO rights as stated in license E-0156 
['EP(liIC>=OEP(l,IC>+DEPOF 

DEP2{1, IC)=0EP2(1,IC)+0DP{1)*DDP(1)+0DP(2)*DDP(2) 
DO 430 1=1,2 

IE <DMX(1, IC) .LT.DDPd > ) DMX ( 1 ♦ IC ) =DOP ( I ) 

IF (DMNd.IC) ,GT.DOP( I) ) DhN { 1 , IC ) =DOP { I ) 

4 30 COMTIfvUE 


IF( ABRh(l) ,GT.O) I8N = IBN + 1 
IF(ABRH{2) .GT,0) IBN = IBN + X 
r)EP{2,IC) = DEP(2,IC) + (ARRH(l) + ABRH(2)) 

OEP2(2, IC)=0EP2(2,IC)+ABRH{1)*ABRH(1)+ABRH(2)*ABRH(2 > 
CO 460 1=1,2 

IF (0MX(2, IC) ,LT.A8RH( I > ) DMX ( 2 , IC ) =A8RH ( I ) 

IF (l)MN( 2,IC),GT.ABRH(I)) OMN ( 2 » IC ) =ABRh ( 1 ) 

460 CONTINUE 

C * PERCENT CASE 1,2: TOTAL, DEAD BRUSH COVER 

DO 470 1=1,2 
J=1BC{1 , I) 

K = IRC(2, 1 ) 

IF (J.EU.O) J=9 
IF (K.EG.O) K=9 
PD=(COOE( J)+C00E(K) )/2,0 
FCV(I,IC)=PCV(I,IC)+PD 
470 CONTINUE 


C 

C 


C 


C 


C 

C 


* PERCENT CASE 3,4; TOTAL, DEAD GASS-FORBS 

IFdGFCd) .EQ.O) iGFCd) = 9 

IFdGFC{?) ,EQ,0) IGFC(2) = 9 

CODEX = (COOEdGFC(l) ) + CODE (IGFC ( 2 ) ) ) / 2,0 

PCV<3,IC) = PCV(3»IC) + YX*CODEX/4.0 

PCV(4,IC)=PCV(4,1C)+YY/4.0 

LOADINGS BY SIZE CLASS AND SPECIES 

TOTBW=0 , 0 
DO 520 1=1,10 


* CHECK AND COMBINE 
IF dSPd),EQ.4H ) 

IF dSP( I > ,EQ,4HVAME> 

DO 400 K=l,2a 
IF dSPd ) ,EO.NSP(k) ) 

480 continue 

lY = lY + 1 
IDUMKIY) = iSPd) 

GO TO 520 

* SPECIES IS unidentified, 

* CALCULATE SHRUB WEIGHT 
500 KK = K 


SIMILAR SPECIES 
GO TO 520 
ISPd )=NSP(19) 

GO TO 500 


CHECK FOR SMALI 


OR LARGE STEM 


510 

520 


DO 510 J=l,7 

IF ( NST ( I , J ) , EQ , 0 ) GO TO 510 
XX = REG(J,K) * FLOAT(t\IST( 1 , j) )♦ 
IF (XX.GT.0.0) XX=XX*TSLP 

SHWT(J,KK,1C)5SHWT(J,KK,IC)+XX 

IF (XX.LE.O.O) GO TO 510 
T0T8W=T0T8W+XX 


6.8185 


CONTINUE 

CONTINUE 


* LOAD CASE 20 S DEAD BRUSH 
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X(20)=TOTQy*PD 

C * load case 23 J LIVE DRUSH 

X(23)=TDTF3W-X(20) 

C K LOAD CASE 2i: TOTAL DEAD FUEL 
X(Q) = > (13) + X(ia) 

X(21) = X(7) + X(a) + X(19) + X(20)/2,0 

XI24) = 0,0 

X(2o) = 0.0 

X{2&) = 0.0 

DO 540 I=1,19 

DO 540 J=li4 

IF(TSPY(J) .NE.ISPX(I) ) GO TO 540 
SDLH(ItlC) = SDLH(ItlC) + HSP(J) 

XDLM( I,IC)=XOLH(I »IC)+1.0 
NSDL( I , IC)=NSDL(I ,IC)+NSTM(J) 

CALL SEEDL(I*HSP(J) tNSTMCJ) > 

540 CONTINUL 

X(27)=:X{24)+X(25)+X(26) 

C * LOAD CASE 28? TOTAL FUEL LOAD 

X(28)=X{21 )+X<22 )+X(23)/2,0+X(27) 

C SUM the LOADINGS BY SIZE CLASS 

00 530 1=1*28 
XX=X ( I ) 

XLI;)S(I,IC)=XL0S(I*IC)+XX 
XL02( I , IC)=XLD2( I*IC)+XX*XX 
530 CONTINUE 

C ♦♦♦ ASPECT SLOPE AMO ELEVATION 
no 550 1=1*3 

TCOA(I*IC)=TCOA(I*IC)+TCOI(I) 

IF (I.GE.S) GO TO 550 

TC02( I * IC)=TCo2( I»IC)+TC0I{I )*TC0I(I) 

IF (TCOM(I*IC).GT.TCOI(I) ) TCON ( I * IC ) =TC0I ( I ) 

IF (TCOX ( I *IC) .LT.TCOI ( I ) ) TCOX ( I * IC ) =TC0I ( I ) 

550 CONTINUE 

C ♦ UPDATE the COUNTER 

XN(IC)=XN<IC)+1,0 
GO TO 180 

C OK SPIT OUT ALL THAT GARBAGE 

580 CALL OUTPUT(NC*IBN*ISPX*NAME*IO) 

IBN = 0 
END FILE 10 
IF(KEY.EQ.I) GO TO 20 
ICl=ICl+2n 

IF (IC1.GT*NPS) go TO 20 
I2=IC1+19 

IF (I2.GT,NPS) I2=NPS 

NC=I2-IC1+1 

GO TO 170 

END 

D R04-00 MAINPROG .MAIN 03/04/82 15:27?44 TABLE SPACE? 11 KB 

FER? 20 LlNES/1321 BYTES, STACK SPACE? 209 WORDS 
ION FLOATING PT SUPPORT REQUIRED FOR EXECUTION 
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subroutine 0UTPUT(NC, IHN,ISPX*NAriEtIO) 

CHARACTER NAME ( 2 . 20 ) » IC0N*5 
[>r-lENSlON IT0(‘ft2t3) tISPX(19) 

COMfiriN /HEO/ IHEAD( 15) , ICLTd^t*) t ICON (2) , IL AS T » KE Y * X I NC » NPS t ICl t 
1TPS(1A4) « TCVT , IHBT. SAGE » TDOMl ( 100 ) tlY 
COH'ION XLUSI ?8i?0) f XLD2(26»20 ) i UEP C 1 2 1 20 ) i PC V ( 4 « 20 ) » XNDP ( 8 * 2 0 ) * X ( 

* 26 ) 

1, ADI A (2 t 20) tXND(2»20) ,DEp2(2»20) i SHWT ( 7 ♦ 26 » 2 0 ) fXN(20) tDMX(2*20) » 
2 XImLT< 20) iXNGFiaO) ,DMN(?»20) tNSDL(19,?0) ♦SDLH(19»20) »XDLH(19*20) *TC 
3 oA( 3,20) «TC0M(2i20) .TCOX<2,20 ) , TC02 ( 2 . 20 ) , STC A ( 2 i 20 ) » STCN C 2 ♦ 20 ) tST 
4CX(2i2n> •STC2(2,20) 


DATA 

ITO/4H ,4H 0-. ,4H25 

,4H 


« 




*4H 

i4H ,25,4H-1 ,4H 

i4H 


,4H LIT 

,4HTER 

,4H 


♦4H0EADi4H HER,4H8S 1 4H 

f 4H 


, 4 H FIN 

, 4 Hes 

, 4H 



i4H 1-3, 4H ,4H 

1 4H 

LE 

,4HSS T 

,4HHAN 

,4H3 



,4HT0TAi4HL i 4 H 


S 

,4H0UND 

,4H 3-6 

,4H 



S,4H0UND,4H 6-1, 4H0 

f4H 

S 

,4HOUND 

,4H 10- 

,4H20 



S,4HOUND,4h 20+,4H 

t4H3+' 

S 

,4HOUND 

,4H TOT 

,4HAL 



R,4H0TT£,4HN 3-i4H6 

i4H 

R 

,4H0TTE 

,4HN 6 - 

,4H10 


*4H 

P,4H0TTE,4HN 10,4H-20 

i4H 

K 

,4H0TTE 

,4HN 20 

,4H + 


♦ 4H3+ 

R,4H0TTE,4HM T0,4HTAL 

,4H0UFF 

,4H 

,4H 

,4H 


*4hDEADi4H SHR,4HUB ,4H 

,4HDEAD 

,4HFUEL 

, 4 H LOA 

,4HD 


*4HLIV£,‘*H HER,4HBS i4H 


L 

,4HIVE 

,4HSHRU 

t4HR 


*4HTREEi4H NEE 1 4HDLES , 4H 

f 4H 


,4H 0-, 

,4H25 

1 4H 


*4H 

,4H ,25,4H + ,4H 

»4HT0TA 

,4HL TR 

, 4 HEE 

,4H 



*4HT0TAt4HL L0t4HA0 t4H / 

DO 450 ICrliNC 

IF (XN( IC) .LE.0,0) GO TO 4R0 
XN2=XN( IC)*2,n 

c *** priinit out fuel loading summary 
c + title and heading 

INP=:XN ( IC ) 

call head (ICflO) 

WHITE (10,10) IMP 

10 FORMAT (/,23Xt4UH********** FUEL LOADING SUMMARY 3 

17X»*{F0R' ,15, • PLOTS)*, /26X, 'I* »4X, ♦LOADING IN OVEN-DRY POUNDS/ACR 
2E»5X, * 1 * 111 X 1 *1* / 13X, ‘SI^E CLASS I AVERAGE ♦ 1 15X »♦ STD-DEV i«ER 
3ROR I hG/SQ-(^ I*) 

WRITE <10,20) 

20 FORMAT ( 1 0 X , 16 ( ' - ' ) 1 * I * 1 4 0 { * - * ) , • I • , 1 1 ( • - * ) 1 • I ♦ ) 

DO 90 IL=1,26 

C ♦ AVERAGE THE LOADINGS BY SI?E CLASS 

XX=XN{ IC ) 

IF < IL.EQ*20.0R,IL.EQ,23> XXsXN2 
IF (XX.LE,O.O.OR.KLDS( IL,IC» .LE.0.0) GO TO 30 
XLUS(IL,IC>=XLns(lL,IC)/XX 
C * STANDARD DEVIATION 

IF (XX.LE.1.0.0R.XLDS(IL,IC).LE.O.O> go to 40 
XL02(XL,IC)=:ST0V(XLD2{IL,IC) iXLDS(IL,IC>,XX) 

C ♦ percent ERROR 

X(IL)sXLD2( iLf IC)/{SQRT(XX)*XLDS(ILtIC) ) * 100,0 
GO TO 50 

30 XLDS<IL, IC )=0.0 
40 XL02<ILiIC)=0.0 
X{IL)=0,0 

50 PPSF =(XLDS( ILtIC) / 43560, 0)» 4,8624 
IF(1L,EQ,19) WRITE{IO,20) 
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IF (iL.EQ.S.OR.IL.EQ.a.OR.IL, EQ.21.0 R.il. EG. 28) WRITE<IO,20) 

IF { (IL,Gt.8.AND.IL.LT.18.AND.IL.NE.13) .OR. (IL.LE.4) .OR. ( {IL.GE. 

124) .AND. ( IL.LE.26) ) ) GO TO 70 
IFdL.EQ.G) GO TO 70 
IF(IL.EQ.20) GO TO 70 
IFdL.EQ.aa) 60 TO 70 
IF(IL.EQ.23) GO TO 70 
IF(IL.EQ.19) GO TO 85 
C * PRINT OUT fuel LOADING 

WRITE(IO»60) <ITO(IilL) . 1 = 1 . 4 ) , XLOS ( ILi IC ) . XLD2 ( IL . IC ) » X ( IL ) .PPSF 
60 FORMATdOx »4A4 t * I • iFlO.O tllX iF10.0tF7.1 i 2 X. * I* .F10.3. * I') 

GO TO 90 

70 WRITE do .80) (ITOd dL) 1 1=1 . 4 ) , XLDS (IL 1 1C ) . XLD2 ( IL . IC ) . X ( IL ) .PPSF 
8P FORMAT d OX »HA4 .*I*ilOX.FlO.O,lX.F10.0,F7.1,2X.*I'.F10,3,* I*) 

GO TO 90 

65 WRITE(10.86) ( ITO d . IL ) . 1=1 » 4 ) . XLDS ( IL . IC ) .PPSF 

66 FORMATdOX.4A4dI» .10XiF10.0.20X. ♦!' .FIO.S.* I* ) 

90 CONTINUE 

average fuel depths 

♦ AVERAGE FUEL DEPTH 
DO 120 1=1.12 
XX=XNdC) 

IFd.Ea.2) XX = ibn 
IF d,LT.3.0R.I,GT.10) GO TO 95 
J=I-2 

XX=XNDP(J.IC) 

95 IF (XX.LE.0.0) GO TO 110 
OEPd.IC)=DEPdilC)/XX 
GO TO 120 
110 DEPd, 10=0.0 
120 CONTINUE 
C ♦ STANDARD DEVIATION 

DO 130 1=1.2 
XN3=XN2 

IFd.EQ,2) XN3=IBN 

DEP2d.IC) = STDV(0EP2d.lC) .UEPd.IC) .XN3) 


130 CONTINUE 

C ♦ PRINT OUT FUEL DEPTHS 

WRITEdO.140) 

140 FORMAT (/.24X.42H^********* DEPTH (INCHES) *♦*♦♦*♦**♦* > 

WRITE (10.150) 

WRITE (10,160) (DEPd. IC) ,DHN ( I . IC ) .DMX ( I . IC ) . DEP2 ( I . IC ) . 1 = 1 , 2 > 

150 FORM/\T <31X.*I AVERAGE MINIMUM MAXIMUM STD-DEV I • /19X , 12 ( *- • 
l>.»I'.37(*-*),dM 

160 F0RMAT(22X. 'DUFF I • ,4 ( F8 .2 . IX ) . ' I* / 22X. 'SHRUB I*.4(F8.2, 

IIX)* I') 

C "* PRINT OUT TOPO CONDITIONS 
CALL HEAD (IC.IO) 

DO 200 1=1.3 

TCOAd. lC)=TC0Ad.IC)/XN(lC) 

IF d,GE.3) GO TO 200 

TC02d.IC)=STDV(TC02(I.lC).TCOAd.IC) .XN(IC) ) 

200 CONTINUE 

WRITE dO.210) 

210 FORMAT ( // .22X . ‘fGH********** TOPOGRAPHIC CONDITIONS *♦**♦**♦*♦) 


39 



R04-00 


03 / 01 * 


LICEMSEL* ueSTRICTED RiOHTS AS STATEH IN LICENSE E-0156 SEE DOCUHENTATI 

WRITE (10,150) 

WRITE (10,220) TCOA ( 1 » IC) iTCONdt IC ) tTCOXd f IC) *TC02 (If IC) 

220 FORMAT (23X, 'SLOPE I « , 3 ( Ffl . 1 , IX ) f Ffl , 2 , * I*) 

WRITE (10,230) TC0A(3,rC) 

230 FORMAT (23X»'ASPECT I ' , Ffi , 1 » 29X , • I • ) 

WRITE (10,2140) TCOA< 2 t IC ) ,TCnN(2f IC ) f TC0X(2f IC) f TC02(2fIC) 

240 FORMAT ( 2lX , * ELE VAT ION I • , 3 ( FO ♦ 0 « IX ) , F8 , 1 , ' I*) 

IFdY.LE.O) GO TO 1*1 
IF(IY.GT.26) lY = 26 
WRITE( 10,575) ( lOUMl d ) , 1=1 » I Y ) 

575 FORMAT* /lOX'THESE CODES D 

IPONU TO the LIST OF ACCEPTABLE BRUSH SPECIES,*/ 10X,*THIS DATA WA 
3S NOT USED IN THE CALCULATIONS, ♦ / lOX , 13 ( A*4 , IX ) / lOX , 13 ( Aif , IX ) ) 

15 CONTINUE 

C PRINT OUT the BRUSH LOADING HEADING 

INP2=XN2 

WRITE (10,330) INP2 
WRITE (10,340) 

C * calculate shrub LOADING RY SPECIES 

DO 250 J=9,16 
X< J )=0.C 
250 CONTINUE 

00 300 1=1,20 

X(0)=0,0 

DO 200 J=l,7 

IF (SHWT( J, I , IC ) ,CQ. 0, 0 ) GO TO 270 
IF (SHWT(J,ItlC),LT.0,O) GO TO 260 
X(U)=SHWT{ J,I,ICI/XN2 
y (8)=X (8) +X( J) 

GO TO 280 

260 X(J)=SHWT(J,I , IC) 
y(fi)=X(fl)+lE -20 
GO TO 280 
270 X(J)=0.0 
280 CONTINUE 

IF (X(O),EQ.0.0l GO TO 300 
C ♦ SUM HIGH, MEDIUM, LOW, AND UNDEFINED BRUSH 

C * WRITE OUT THE BRUSH WEIGHTS 

WRITE (10,350) (NAMC(K,I) ,K = 1 ,2), (X( J) , J=l*8) 

DO 290 j=i,a 

IF (X(J).LE.0,0) GO TO 290 
K = J + 8 

X(K)sX (K)+X( J) 

290 CONTINUE 
300 CONTINUE 

WRITE (10,340) 

WRITE (10,360) (X< J) »J=9,16> 

330 FORMAT (// i lOX , 7H******* , 2X ,* AVERAGE LIVE AND DEAD SHRUB LOADINGS 
IIN POUNDS/ ACRE' , 2X , 7H******* ,/ » 31X , * (FOR* ,15, ♦ PLOTS) * ♦ /, 21X » * I * « 1 
23 Xi'SIZE CLASS IN CENTIMETERS • d2X ,♦ I *,/, 8X ,* SPECIES • ,6X ,* I 0-,5 

3 ,5-1 1-1.5 1.5-2 2-3 3-5 5+ I TOTAL*) 

340 format (8X,l3(*-*)i*I*,50(*-*),'I',7(*-*)> 

350 format (Sx,2A6,' I*,7F7,1,* I*,F7,1) 

360 format (8X, ’TOTAL* ,0X , * I* »7F7,1, ' I*,F7,1) 

C *** PERCENTAGE ESTIMATES AND 3+ SOUND XNO ROTTEN 
C * AVERAGE PERCENT BRUSH COVER ' 

DO 370 1=1,4 
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PCV( I, IC )=PCV( Ii IC)/XM( 10*100,0 
370 CONTINUE 

c ♦ average diameters 

00 390 l=lt2 

IF (XND<I,IC) ,LE.0,0) GO TO 380 
ADIA(I,IC)=ADIA(I,IC)/XND(I,IC) 

GO TO 390 

380 ALIAC I , IC )=0 .0 
390 CONTINUE 

C + PRINT OUT ESTIMATES 

X (1 )=XLDS< 13, 10/2 00 0,0*8 0.12 
X (2) =XLDS( 18, 10/2000.0*106.83 

WRITE (10,400) (PCV(ItIO.I = l,4)»(X(I),ADIA{IiIC)»Isl,2> 

400 FORMAT ( // ♦ 9X » 71H***** PERCENTAGE ESTIMATES ******* 3+ VOLU 

IKE AND diameter ***** / 9X » ' I SHRUB I HERBS I 

2 SOUND I rotten I* »/t9X»*I’ »2( * 5SC0VER ?iDEAD I* 

3),2(* CU-FT AVG.DIA I • ) i / » 9X » • I » * 2 ( 16 ( • - « ) » • I • ) , 2 ( 17 ( * - • ) » • I ♦ ) i / 

4i9Xt ♦!* »2(2(F6,li2X) 1 'IM »2(F7.0,F0.2» * I* ) ) 

C *** SEEDLING COUNT 
WRITE (10,410) 

410 FORMAT (// 23X , 38H********** SMALL TREES *♦*****♦♦♦ / 28X»*SPE 

ICIES TREES/ACRE AVG,HT,FT.*) 

TOrSEDsO.O 
DO 430 1=1*19 

IF (NSOL( I ,lO .EQ.O) GO TO 430 
SEED=FL0AT(NSDL(I*IC) )*300,0/XN(IC) 

totseo=totsed+seed 

AVHT=SDLH( I* IC)/XOLH{I,IC) 
write (10,420) ISPXd ) tSEEDtAVHT 
420 FORMAT ( SIX , A2 , IX * FlO , 0 , 2X » FI 0 . 2 ) 

430 CONTINUE 

WRITE (10,440) TOTSED 
440 FORMAT ( 29X ** TOTAL •* FIO , 0 ) 

450 CONTINUE 
RETURN 
END 

R04-00 SUBROUTINE OUTPUT 03/04/82 15527:54 TABLE SPACES 7 KB 

ER: , 20 LINES/1321 BYTES STACK SPACES 185 WORDS 

ION FLOATING PT SUPPORT REQUIRED FOR EXECUTION 
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SUBROUTINE LOOK CI»01t02,03) 

C *** SET f^ULTlPLlCATlON CONSTANTS BASED ON COVER 
IF <I»EO.U) GO 10 140 

GO TO (30*140, 14 (J *140 *30, 140i30,140il40»40, 20*140, 140tl0t30tl40»40t 

1140.140.140) ,I 
lO 01=0.0342 

GO TO 50 
20 01 = 0.0201 
GO TO 50 
30 01 = 0.0122 
GO TO 50 
40 01=0.0149 

50 GO TO (70, 140, 140, 140, 70, 140, 70 , 14 0,14 0,00,60,140, 14 0,80, 70, 140, 80, 

1140.140.140) ,I 
60 D2=0.344 

GO TO 90 
70 02=0.304 
GO TO 90 
80 02=0.238 

90 GO TO (100, 140, 140, 140, 110, 140, 110, 140, 140, 120, 11 0,140,1 40, 100, 110, 

1140.120.140.140.140) ,! 

100 03=3,12 

GO TO 130 
110 D3=2,87 
GO TO 130 
120 D3=2,17 
130 RETURN 
140 Dl=0.0l51 
02=0,289 
03=2.76 
return 

END 

D r\04-00 subroutine look 03/04/82 15;P7S55 TABLE SPACE} 2 KB 

PER! 20 LrMF,S/1321 BYTES STACK SPACE: 52 WORDS 
ilON FLOATING PT SUPPORT REOUIREO FOR EXECUTION 
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SUBROUTINE ZERO (NO 
C *** ZERO OUT ALL STORAGE ARRAYS 

CO^IMON XLDS(?8»20) »XLn 2 ( 28 » 20 ) »DEP( 12 t 20 ) .PCV(4,20) iXNDP(a»20) tXtB 
18) ♦ADI A (2, 20) iXMD<2*20) ♦DEp2(2t20) . SHWT ( 7 , 28 1 20 ) » XN ( 20 ) ♦ DMX ( 2 . 20 ) » 

2XNLT<?0) »XNGF(20) ♦Dl“iN(2*20) »NSnL(19,2n) , SDLH (19 , 20 ) ♦ XDLH ( 19 ♦ 20 ) tTC 
3OA(3t20 ) * ICON (2i20) ♦TC0X(2i20) ♦TC02( 2*20) .STCA(2«20) .STCN(2*20) tST 
4CX{2»20) ♦STC2(2,20) 

DO eo lC=ltNC 
XN{ 1C )=0.0 
XNLT( 10=0,0 
XIMGF(IC)=0.0 
DO 10 J=l,2fl 
XLDS(iJ,IC) = O.O 
XLD2(J,IC) = 0.0 

10 CONTINUE ' 

DO 20 J=1,12 
DEP(J, 10=0.0 
20 CONTINUE 
DO 30 Jsl,8 
XNDP(J, 10=0,0 
30 CONTINUE 
DO 40 J=l,3 
TCOA(J,IC)=0.0 
40 CONTINUE 
DO 50 J=l,2 
DEP2(J,IC) = 0.0 
ADIA(J,IC) = 0.0 
XND(J,IC) = 0.0 
DMX(J,IC) = -l.OE+20 
STCX(J,IC) = -l,0E+20 
TCOX(J,IC) = -l,0E+20 
DnN(J,IC> = l.OE+20 
STCN(J,IC) = l.OE+20 
TCON(J,IC) = l.OE+20 
STCA(J,IC) = 0,0 
STC2(J,IC) = 0.0 
TC02(U,IC) = 0.0 
50 CONTINUE 

DO 60 1=1,28 
DO 60 J=l,7 
SHWT(J, 1, 10=0.0 
60 CONTINUE 
DO 70 d=l,4 
PCV( J,IC)=0,0 
70 CONTINUE 

DO 80 J=l,19 
SDLH(J,IC) = 0.0 
XDLH(J,IC) = 0.0 
NSOL(J,IC>=0 
80 CONTINUE 
RETURN 
END 

3 R04-00 subroutine ZERO 03/04/82 15:27:57 TABLE SPACE: 3 KB 

=ER; 20 LINES/1321 BYTES STACK SPACE: 126 WORDS 
[ON FLOATING PT SUPPORT REQUIRED FOR EXECUTION 
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LICE^JSED RESTRICTED RIGHTS AS STATED IN LICENSE E-0156 

FLNCTION STOV (XX,XMN,XN» 

IF (Xi'i.LE.l.O ) GO TO 10 
STnV=SORT ( (XX-XN* ( XMN»*2 ) )/(XN-l,0) ) 

OO TO 20 
10 STDVrO.U 
20 RETURN 
FND 

T F04-00 FUNCTION STOv 03/04/fl2 15:27:58 TABLE SPACE: 

FER: 20 LINES/1321 BYTES STACK SPACE: 151 WORDS 

IION FLOATING PT SUPPORT REQUIRED FOR EXECUTION 


1 KB 
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03/0 

♦ SEE DOCUME^fTAT 


licensed restricted rights as stated in license E-0156 
SUBROUTINE HEAD (ICilO) 

character icvtp*io , IC0N*5 
DIMENSION ICVTP(2»12) 

CCMMON/HED/ IhEAD( 15) ,ICLT ( 144) , ICON(2 ) t IL AST i KE Y t XI MC * NPSi IC 1 1 1 P 
IS (I 44) ,ICvTtIHBT,SAGE,IDUMl(100) ,IY 


DATA ICVTP/ 

•POI'JDEROSA ', 

•pine: 


1 

•LODGEPOLE 

•PINE 

f . 


• douglas-fi • , 

•R 

1 ^ 

3 

•SPRUCE, SP', 

•RUCE FIR 

f 

4 

'ALPINE FIR' . 

t 

t ^ 

5 

* GRAND FIR ' , 

1 

1 . 

6 

•WESTERN RE* , 

•D CEDER 

t * 

7 

•BRUSH 

f 


8 

•ALPINE LAR* , 

•CH 

1 . 

9 

•WHITEBAPK 

•PINE 

1 . 

$ 

•GRASS 

1 

1 , 


•undefined ', 

1 

I 


DATA IPAGE/0/ 

ipagesipage+i 

IX=IC+ICl-l 

C *** PRINT OUT TITLE 

WRITE< lOtlO) (IHEAD(I) tl=lil5) i I PAGE 
IF(KEY.EQ.I) URITE<I0ia5) IC VT » IHBT f SAGE 
10 FORMAT(lHl,9Xtl5A4, • PAGE ‘,13 /) 

15 FCRMATC lOXt'COVER TYPE ’ i A3 » 2X « • HAB I T A 

IT TYPE »♦ I3i2Xf ’STAND AGE **F4,0 ) 

GO T0(4ntl50,170) .KEY 
C * STANDS SEPERATELY 

40 WRITE <10, 50) HAST 
50 F0Rl“lAT<36X« 'STAND NUMBER *,14) 

GC TO 210 

C * COVER TYPE CODES 

150 I1=ICLT<IX> 

WRITE (10,160) (ICVTPd, ID , 1 = 1.2) 

160 FORMAT (30X. 'COVER TYPE •,2A10) 

GO TO 210 

C ♦ HABITAT TYPE CODE 

170 WHITE (10,180) ICLT(IX) 

180 FORMAT ( 34X .* HABITAT TYPE CODE', 14) 

210 RETURN 
END 

K04-00 subroutine HEAD 03/04/82 15:27)59 TABLE SPACE: 2 KB 

ER: 20 LINES/1321 BYTES STACK SPACE: 122 WORDS 
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LICEMSELD restricted rights as stated in license E-0156 


03/04 

***» SEE DOCUMEMTATI 


subroutine SEEDL(ISP»XHT,NUi''I) 

UIHENSION Z1(3,19) « Z2(3il9) « Z(3> 

CO'noN XLDS(28 i 20) ♦ XL02 ( 28 , 2ft ) ,DEP(12»20) »PCV(4,20) » XNDP ( 8 * 20 ) » X ( 2 
l8)*AniA(2,20) .XND(2*20) i dEp 2 ( 2 « 20 ) i SHWT ( 7 , 26 ♦ 20 ) *XiN|20) fDMX<2t20) » 
2XNLTU0 UXN6F(20 ) ,ONN(2i20) .NSDL(19»20 ) .SDLH( 19,20) ♦XDLHI 19,?0) »TC 
3oA(3,2ft) »TCON(2,20) ,TC0X(2,2P) ,TC02(2«20) ,STCA(2,20) ,STCN<2t20) ,ST 
ACX(2,2a ) •STC2(2,20 ) 

DATA Zl/*bl, .21, .2a, 

* «0t*0f»09 


•51t •Slf ♦2Qt 

«0 t«0 f^O f 


* 

* 

* 

* 

* 

* 

% 

% 

* 


• 3a f • 1 6 1 • 44 < 
«51t «21t 

•0 f*0 1*0 I 

• 26f * 23 i $ 51 » 
♦38f •16f»44f 
• 38i . 18 , .44t 

«0 t«0 f M 0 f 

• 38t #181 *441 
•51i •21f«289 

• 38i ,16 f .44 9 
•26t .231 *519 

• 48 1 • 21 9 « 51 9 

tO 9.0 9.0 / 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

3F 


(^ATA ^2/. 40 9 • 169 .449 


9 »0 
9 • 0 

9*0 


• 0 9 t 0 

« 0 9 « 0 

t 0 9.0 

• 409 *169 #449 

•0 t.Q 9.0 9 

♦3I9 ♦149 •559 

• 4 09 •I69 ^449 
*0 9.0 9^0 9 
♦21^9l99*609 

• 31 9 • 14 9 # 55 9 
.319 .149.559 
♦0 9.0 9»0 9 

• 31 9 • 1 4 9 # 55 9 
•409 #169. 449 
•Slf. 149.559 

• 2I9 .l^l .^09 

• 3I9 .Ifet #539 

• 0 9.0 9i0 / 

YfV=NUM + 300. 

50,10. 20. 

10 CU=YN*.019604i»XHT**2,571 
GO TO 200 

20 CW=YN*»005940»XhT**2«563 


GO TO 200 

30 CW=YN*,32q2*XHT 
GO TO 200 

40 Clv=YN*,070+.02‘)4G*XHTiti»2.0 
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! licensed restricted rights as stated in license E~0156 ***% SEE DOCUHENTATI 

GO TO 200 

50 CU=YN*.34h1*XHT 
GO TO 200 

60 riM = YN*.03lll*XHT**2.0 
GO TO 200 

70 CIa'=YN*,42S4*XHT 
GO TO 200 

80 CW=YN*.04q33*XHT**2.0 
GO TO 200 

90 CW=YN*.ll2OKXHT+.00ai3*XHT**2 
GO TO 200 

100 CWsYN*.0l482*XHT=*<*2.7l68 
GO TO 200 

110 CW=Yr«J*.035615*XHT*»2,303 
GO TO 200 

199 RETURN 

200 DO 210 1= li3 
IF(XHT.LE.4.9) Z(I) = Z1(I,ISP) 

IF(XH1 .GE.5.0) 2(1) = Z2(I,ISP) 

210 CONTINUE 

X(24) = X(24) + CW ♦ 2(1) 

X(25) = X{25) + CW ♦ 2(2) 

X{26) = X(26) + CW ♦ 2(3) 

RETURN 

END 

7D R04-00 SUBROUTINE SEEUL 03/04/82 15;28;02 TABLE SPACE) 4 KB 

FFER; 20 LINES/1321 BYTES STACK SPACE; 144 WORDS 
SION FLOATING PT SUPPORT REQUIRED FOR EXECUTION 
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APPENDIX IV 
FIELDWORK HINTS 

1. steep slopes and heavy brush will slow procedures 
from 5 to 10 minutes per sample point. Keep this in mind 
when laying out the day's work. 

2. In bogs or moist areas, it can be difficult to distin- 
guish the division between duff and mineral soil. It may 
be desirable to establish a lower limit such as 12 inches. 
Below this, duff should not be measured. 

3. Before going to the field, label bags for collecting 
herbs and litter. 

4. Keep herb and litter samples in porous containers to 
prevent mildew. If the weather permits, hang samples 
where they can air-dry, 

5. Approach sample point centers cautiously to avoid 
disturbing vegetation. At each point, lay out the sampling 
plane and subplots before doing any sampling. This will 
minimize disturbance of vegetation to be sampled. 

6. In areas with abundant herbaceous vegetation, take 
larger bags for collecting samples. 

7. Fill out the forms fn pencil with dark lead. Mistakes 
can be easily erased. 

8. Take care to enter data and label sacks clearly. 

Make sure all the recording Is completed in the field at 
each plot while It is still fresh in your mind. 
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Brown, James K., Rick D Oberheu, and Cameron M, Johnston. 1981 Handbook for 
inventorying surface fuels and biomass in the interior West. USDA For, Serv. 
Gen. Tech. Rep, [NT-129, 48 p. Intermt. For, and Range Exp Stn., Ogden, Utah 
84001, 

Presents comprehensive procedures for inventorying weight per unit area of 
living and dead surface vegetation, to facilitate estimation of biomass and 
appraisal of fuels. Provides instructions for conducting fieldwork and calculating 
estimates of downed woody material, forest floor litter and duff, herbaceous 
vegetation, shrubs, and small conifers. Procedures produce the most accurate 
estimates in the Interior West, however, techniques for herbs, litter, and downed 
woody material are applicable anywhere. Includes computer program and card 
punching instructions for processing inventory data. 


KEYWORDS* sampling, forest floor estimation, shrub estimation, grass and forb 
estimation, forest fuel estimation 


